Напиши решение на С++ Условие: Дан массив, состоящий из 15 элементов действительного типа. Определить разность между произведением всех положительных элементов и произведением модулей всех отрицательных.
Var m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer; s:real; a:array[,]of integer; begin write('Число строк: '); readln(m); write('Число столбцов: '); readln(n); setlength(a,m+1,n+1); for i:=1 to m do begin writeln('Вводите элементы строки ',i,' по одному'); for j:=1 to n do readln(a[i,j]); end; min:=a[1,1]; max:=a[1,1]; imn:=1; jmn:=1; imx:=1; jmx:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; imn:=i; jmn:=j; end; if a[i,j]>max then begin max:=a[i,j]; imx:=i; jmx:=j; end; end; p:=a[imn,jmn]; a[imn,jmn]:=a[imx,jmx]; a[imx,jmx]:=p; writeln('Измененный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end; write('Введите номер строки: '); readln(i); for j:=1 to n do if a[i,j]<0 then begin s:=s+a[i,j]; k:=k+1; end; writeln('Ср.ариф. отр.чисел в строке: ',s/k); end.
Program asd; Const n=3; m=3; Var A:array[1..n, 1..m] of integer; i,j,s,s1,k:integer; sr:real; BEGIN Writeln('Массив А: '); For i:=1 to n do begin s:=0; for j:=1 to m do begin A[i,j]:=Random(10); Write(A[i,j]:2); s:=s+A[i,j]; sr:=s/i; end; Writeln; end; Writeln; k:=0; For i:=1 to n do begin s1:=0; for j:=1 to m do
If A[i,j]>sr then begin inc(k); s1:=s1+A[i,j]; end;
m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer;
s:real;
a:array[,]of integer;
begin
write('Число строк: ');
readln(m);
write('Число столбцов: ');
readln(n);
setlength(a,m+1,n+1);
for i:=1 to m do
begin
writeln('Вводите элементы строки ',i,' по одному');
for j:=1 to n do readln(a[i,j]);
end;
min:=a[1,1];
max:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]<min then
begin
min:=a[i,j];
imn:=i;
jmn:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imx:=i;
jmx:=j;
end;
end;
p:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=p;
writeln('Измененный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
write('Введите номер строки: ');
readln(i);
for j:=1 to n do
if a[i,j]<0 then
begin
s:=s+a[i,j];
k:=k+1;
end;
writeln('Ср.ариф. отр.чисел в строке: ',s/k);
end.
Const n=3; m=3;
Var A:array[1..n, 1..m] of integer;
i,j,s,s1,k:integer; sr:real;
BEGIN
Writeln('Массив А: ');
For i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:2);
s:=s+A[i,j];
sr:=s/i;
end;
Writeln;
end;
Writeln;
k:=0;
For i:=1 to n do
begin
s1:=0;
for j:=1 to m do
If A[i,j]>sr then
begin
inc(k);
s1:=s1+A[i,j];
end;
Writeln('Сумма строки №',i,' : ',s1);
end;
Writeln('Сред. ариф. массива: ',sr:2:2);
Writeln('Количество: ',k);
END.