СРОЧНО!!! 1). создать одномерный массив x(22) целых чисел из диапазона (-25 +25) найти среднее арифметическое положительных чисе
СРОЧНО!!! 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); <span>end.
Вот и вторая задача: Program enot; Var a: array [1..4,1..4] of integer; i,j,s,p,h:integer; o:real; begin for i:= 1 to 4 do for j:= 1 to 4 do a[i,j]:= random(25)-12; p:=1; for i:= 1 to 4 do begin 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.<span> </span></span>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var n:=ReadInteger('n='); var s:=BigInteger(0); var p:=Biginteger(1); for var i:=1 to n do begin p*=i; s+=p end; Print(s) end.