1. Program Program1; Var a:array [1..20] of integer; i,k:integer; begin randomize; for i:=1 to 20 do a[i]:=random(101); k:=0; for i:=1 to 20 do begin write(a[i],', '); k:=k+a[i]; end; Writeln('Сумма элементов массива: ',k); end. 2. Program Program2; Var a:array [1..20] of integer; i,k:integer; begin randomize; for i:=1 to 20 do a[i]:=random(101); k:=0; for i:=1 to 20 do begin write(a[i],', '); inc(k); end; Writeln('Количество элементов массива: ',k); end.
Var n,S,k,t:integer; Begin S:=0; k:=0; Read(n); For n:= 1 to n do Begin Read(t); if t > 0 then Begin S:=S+t; k:=k+1; End; End; WriteLn('k = ',k); Write('Sr = ',S/k) End.