Перевидите код с паскаля в пайтон const N=10;

var

a:Array[1..N] of integer;

i,k,sum,c,b:integer;

begin

Randomize;

k:=0;

sum:=0;

for i:=1 to N do begin

a[i]:=random(61);

if a[i]>30 then k:=k+1;

if a[i]<30 then sum:=sum+a[i];

write(a[i],' ');

end;

writeln;

writeln(k,' чисел превышает 30');

writeln('сумма чисел = ',sum);

writeln;writeln;

writeln('введите число a');

readln(c);

writeln('введите число b (b должно быть больше a)');

readln(b);

for i :=c to b do

write(i,' ');

readln;

end.

AntoniaMazhar    1   01.03.2021 21:43    0