Опубликовано 7 месяцев назад по предмету
Информатика
от Daniiil
Проанализировать текст программы.найти ошибки.Записать исправленный вариант.
Найти произведение 60 элементов массива,записанных случайным образом,числа задаются в интервале от 1 до 300.
const n=300
var p,i:integer
a:array [1..300] of integer,
begin
for i=1 to p do;
a[i]:= random (300);
write (a[i])
p:=0;
for i=1 to n do
p:=p*a[n];
writeln (p=,p);
end.
Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт
