const
n = 25;
var
a: array[1..n] of integer;
k0, k, i, s: integer;
p: real;
begin
s := 0;
p := 1;
k := 0;
k0 := 0;
for i := 1 to n do
begin
a[i] := -n div 2 + random(n);
Write(a[i]:4);
if a[i] = 0 then
inc(k0);
if a[i] > 0 then
s := s + a[i];
if a[i] < 0 then
begin
p := p * a[i];
inc(k);
end;
end;
WriteLn;
Writeln('Сумма: ', s);
Writeln('Количество 0: ', k0);
if k <> 0 then
Writeln('Произведение: ', p)
else
Writeln('Нет таких чисел. ')
end.
Объяснение:
1)
#1 color of rainbow is red
#2 color of rainbow is orange
#3 color of rainbow is yellow
#4 color of rainbow is green
#5 color of rainbow is cyan
#6 color of rainbow is blue
#7 color of rainbow is violet
2)
1, 2, 3, one, two, three
3)
0 0
1 1
2 4
3 9
Кiнець циклу
4)
15
5)
1
4
9
16
25
36
49
64
81
100
Объяснение:
1) Значения из массива выводятся по очереди благодаря циклу, подставляя вперед значение i
2) Все значения из массива по очереди выводятся в консоль
3) Цикл от 0 до 3 в котором сначала выводится итератор, а затем итератор в степени 2
4) Цикл в котором складываются числа от 1 до 5
5) Цикл в котором выводится итератор в степени 2, до тех пор пока итератор не станет равен 11
