Напишите программу, которая считает произведение элементов массива целых чисел. Сначала задается целое число N = размер массива (он всегда меньше или равен 10), затем N целых чисел, каждая на отдельной строке. Вывести произведение. Ввод, вывод (readln, writeln).
Пример ввод
3
2
2
5
Вывод
20
Ответы
Ответ дал:
1
Предоставлю 2 программы
1)var a: array [1..10] of integer;
i,n,s: integer;
begin
read(n);
s:=1
for i:=1 to n do readln(a[i]);
for i:=1 to n do s:=s*a[i];
write(s);
end.
2)var a: array [1..10] of integer;
i,n,s: integer;
begin
read(n);
s:=1
for i:=1 to n do begin readln(a[i]); s:=s*a[i]; end;
write(s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад