Информатика, 11 класс! МАССИВЫпомогите пожалуйста с первой задачей!
Информатика, 11 класс! МАССИВЫ
помогите пожалуйста с первой задачей!
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
const n=13;
var a: array[1..n] of real;
i: integer;
p: real;
begin
p:=1;
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('массив:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('произведение: ',p);
end.
Не нашли ответ?
Похожие вопросы