Найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.Хелп!!!
Найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.
Хелп!!!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы