Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 749
https://dl.bsu.by/course/view.php?id=732
- Дата: 18-02-2020, 13:27
- Категория: Электронные ресурсы / Работа с Moodle
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 701
- Дата: 12-02-2020, 22:35
- Категория: Электронные ресурсы
- Опуликовал: Грико И.
- |
- Коментариев: 0
- |
- Просмотров: 746
Дан массив из 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.
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.
- Дата: 5-02-2020, 08:53
- Категория: Информатика / Алгоритмы: 1 уровень
