1). создать одномерный массив x(22) целых чисел из диапазона (-25 +25) найти среднее арифметическое положительных чисел и количество отрицательных, подсчитать число нулевых элементов массива. 2).создать квадратную матрицу на 16 чисел из диапазона (-12 +12) . найти сумму элементов 3 столбца, произведение элементов главной диагонали и среднее арифметическое элементов массива.

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.

Рентгеновские лучи телевидение мобильный телефон компьютер интернет электромобиль игровые приставки самолёт и автопилот