Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«     2020    »
 12
3456789
10111213141516
17181920212223
242526272829 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

Опросы
Оцените работу сайта
Лучший
Неплохой
Устраивает ... но ...
Встречал и получше
Совсем не понравился

Интернет с пользой
Интернет с пользой
Знаток » 05.02.2020
  • Опуликовал: Грико И.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 551
Дан массив из N элементов.Написать программу, подсчитывающую произведение элементов массива.
var
a:array [1..100] of integer;
i, n, pr:integer;
begin
read(n);
for i:= 1 to n do read(a[i]);
read(a[i]);
pr:=1;
for i:= 1 to n do write(a[i],' '); writeln;
for i:= 1 to n do pr:=pr * a[i];
writeln(pr);
end.
Program8.pas [223 b] ( 1)

Облако Тегов

{links}