Предмет: Информатика,
автор: LizaGurina
найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.
Хелп!!!
Ответы
Автор ответа:
0
uses crt;
const n=7;
var a:array[1..n] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to n do
begin
readln(a[i]);
pr:=a[i]*pr;
end;
writeln;
writeln(pr);
end.
const n=7;
var a:array[1..n] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to n do
begin
readln(a[i]);
pr:=a[i]*pr;
end;
writeln;
writeln(pr);
end.
Похожие вопросы
Предмет: Математика,
автор: Kimbaev2010
Предмет: Алгебра,
автор: ban5505
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Новичок15