Вычеслить сумму чисел меньше 20 должно быть примерно - вопрос №351282820 от annvs1 20.03.2021 13:48

Question

Информатика: Вычеслить сумму чисел меньше 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.

annvs1 · Answer

Var i,s,a:integer;Program Program1;var i,s,a:integer;begins:=0;For i:=1 to 100 dobegina:=random(20);s:=s+a;write(a, , );end;writeln;writeln( Сумма чиселменьше 20: ,s);end....