Вычеслить сумму чисел меньше 20 должно быть примерно так но без a: array [1..100] of integer; (информатика 9 класс) program program1; var a: array [1..100] of integer; i,k: integer; begin randomize; for i: =1 to 100 do a[i]: =random(20); k: =0; for i: =1 to 20 do begin write(a[i],', '); k: =k+a[i]; end; writeln('сумма чисел меньше 20: ',k); end.
Program Program1;
var i,s,a:integer;
begin
s:=0;
For i:=1 to 100 do
begin
a:=random(20);
s:=s+a;
write(a,', ');
end;
writeln;
writeln('Сумма чиселменьше 20: ',s);
end.