Вычеслить сумму чисел меньше 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.

boda13    2   21.06.2019 14:50    0