Предмет: Информатика, автор: LizaGurina

найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.
Хелп!!! 

Ответы

Автор ответа: yasadc
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.


Похожие вопросы
Предмет: Математика, автор: Kimbaev2010
Предмет: Алгебра, автор: ban5505
Предмет: Математика, автор: Аноним