Предмет: Информатика,
автор: naguy
Напишите программу, которая считает произведение элементов массива целых чисел. Сначала задается целое число 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.
Интересные вопросы
Предмет: Математика,
автор: semsasha888
Предмет: География,
автор: stasya2332
Предмет: Английский язык,
автор: 500600
Предмет: Математика,
автор: Zhegzdrin82
Предмет: Физика,
автор: катя1377