Program b1; var m:array[1..40]of integer; i:integer; s:integer; begin for i:=1 to 40 do begin m[i]:=random(21); begin if m[i]<=10 then s:=s+m[i]; end; end; writeln('massiv='); for i:=1 to 40 do write(m[i]:4); writeln('Сумма чисел не превышающих 10=',s); readln; end.
var m:array[1..40]of integer;
i:integer;
s:integer;
begin
for i:=1 to 40 do
begin
m[i]:=random(21);
begin if m[i]<=10 then
s:=s+m[i];
end;
end;
writeln('massiv=');
for i:=1 to 40 do
write(m[i]:4);
writeln('Сумма чисел не превышающих 10=',s);
readln;
end.