Сгенерировать случайным образом 12 чисел из отрезка [-8;8] вывести их на экран и подсчитать среди них сумму нечетных. В паскале!
Образец:
program summa;
var x,i,s: integer;
begin
randomize;
s:=0;
for i:=1 to 11 do
begin
x:=-4+random(13);
write(x,'; ');
if x>3 then s:=s+x;
end;
writeln();
writeln('сумма чисел, которые больше 3, равна ',s);
end.

Вика5552002    2   20.11.2020 14:13    2