Ответы на вопрос:
Program enot; var a: array [1..22] of integer; i,h,n,k,c: integer; l: real; begin for i: =1 to 22 do a[i]: =random(51)-25; for i: =1 to 22 do begin if a[i]> 0 then begin c: =c+a[i]; k: =k+1; end; l: =c/k; n: =0; h: =0; if a[i]< 0 then h: =h+1; if a[i]=0 then n: =n + 1; end; writeln(a[i],'среднее арифметическое= ',l: 2: 2,'; количество отрицательных = ', h,'; количество равных нулю = ',n); end.вот и вторая : program enot; var a: array [1..4,1..4] of integer; i,j,s,p,h: integer; o: real; beginfor i: = 1 to 4 do for j: = 1 to 4 do a[i,j]: = random(25)-12; p: =1; for i: = 1 to 4 dobegin s: =s+a[i,3]; p: =p*a[i,i]; end; writeln('summa= ',s,'; произведение= ',p); for i: = 1 to 4 do for j: = 1 to 4 do begin h: =h+a[i,j]; o: =h/16; end; writeln('среднее арифметическое= ',o); end.
Популярно: Информатика
-
Lafemme117.05.2022 14:10
-
yevdokimenkoal22.08.2022 06:27
-
vcurakina26.01.2021 17:51
-
Saanna15.07.2022 00:02
-
MihailBobr14.02.2021 12:11
-
galina725705.02.2021 13:08
-
bbb530.07.2021 13:03
-
lidochka423.08.2021 21:41
-
Folsi23.04.2020 10:08
-
sannikova0421.11.2020 17:18