Подсчитать произведение элементов, которые меньше 4 в данной программе. program massiv;
var oc: array [1..10] of integer; i: integer; s:real;
begin
s:=0;
for i:=1 to 8 do
begin
oc[i]:=1+random(10);
write(oc[i],'; ');
end;
writeln();
end.

ааа513    1   12.12.2020 16:37    0