Const
nn=50; { ограничение на длину строки/столбца }
var
i,j,m,n,k,s:integer;
a:array[1..nn,1..nn] of integer;
begin
Randomize;
Write('Количество строк в массиве '); Read(m);
Write('Количество столбцов в массиве '); Read(n);
s:=0;
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(101)-50;
Write(a[i,j]:4);
if a[i,j]>0 then begin
s:=s+a[i,j];
k:=k+1
end
end;
Writeln
end;
Writeln('Ср. арифметическое положительных ',s/k)
end.
<u>Пример</u>
Количество строк в массиве 8
Количество столбцов в массиве 11
-11 27 -22 46 -34 -36 10 39 -5 15 -46
46 -48 -42 50 -14 12 -23 -29 -2 8 16
-18 -5 -31 21 -28 -38 20 33 9 24 4
43 18 9 -44 -22 25 37 39 -48 -16 -15
-15 12 46 49 12 -50 -10 42 47 46 33
23 -5 34 26 -5 42 -2 -32 12 -44 -19
-8 -41 -9 -9 -20 -16 3 -15 9 5 -19
47 -40 7 26 -26 0 20 -8 18 27 9
Ср. арифметическое положительных 25.4666666666667
1) 2^85=100...0 (2cc) (1 и 85 нулей)
8^25=(2^3)^25=2^75 =100..0 (2cc) (1 и 75 нулей)
4^6=2^12=100...0 (2cc) (1 и 12 нулей)
8=2^3=1000 (2cc) (1 и 3 нуля)
2) 2^12 +2^3= 1000000000000+1000=1 0000 0000 1000 (2cc) (две единицы)
3) 2^85-2^75= 11 1111 11110000...0 (десять единиц и 75 нулей)
4) 10 единиц+2 единицы=12 единиц
ответ 12
Var
i,n:integer;
s,min:real;a:array[1..10]of real;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
if a[i]<min then min:=a[i];
end;
writeln;
s:=s/n;
for i:=1 to 10 do if a[i]=min then a[i]:=s;
writeln('Среднее отрицательных:',s);
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
<span>end.</span>