Дата публикации:
Помогите исправить ошибку в коде паскаль . Program proizv; const n=10; var a: array
Помогите исправить ошибку в коде паскаль . Program proizv; const n=10; var a: array (l..nl of integer; p, i: integer; begin p:=0; for i:al to n do begin readin (alil); p:mp*a[il end; writeln ('pa', p)' end.
Вот исправленный код:
Program proizv;
const
n = 10;
var
a: array [1..n] of integer;
p, i: integer;
begin
p := 1;
for i := 1 to n do
begin
readln(a[i]);
p := p * a[i];
end;
writeln('p = ', p);
end.
Внесенные изменения:
- Исправлено объявление массива
a
- заменено(l..nl
на[1..n]
. - Исправлено объявление переменных
p
иi
- добавлены двоеточия после типа данных. - Исправлено использование функции
readin
- заменено наreadln
. - Исправлено использование переменной
p
в цикле - изменено начальное значение на 1. - Добавлен символ
;
после вызоваwriteln
для завершения оператораwriteln
. - Добавлен символ
.
в конце программы для завершения программы.