1. По данной программе определить:
а) сколько элементов в заданном массиве;
б) интервал значений элементов массива;
в) что вычисляет данная программа?
Program Variant3;
Const n = 10;
Var D: array[1..n] of integer;
i, p : integer;
Вegin
p := 0;
For i := 1 To n Do
Вegin
D[i] : = -22 + Random(61);
If D[i] < 0 Then p := p + D[i];
End;
Writeln(p);
End.

242Bob    2   28.04.2020 14:57    3