ПОМОГИТЕ! ПАСКАЛЬ!
Создать массив интервалом 6 на 6 случайным образом интервал(-50;50].
1.Найдите количество отрицательных элементов второго столбца.
2.Заменить все положительные элементы на минимальные.
Ответы
const n = 6;m = 6;
var a:array [1..n,1..m] of integer;
i,j,z,k:integer;
begin
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(100)-49;
if (a[i,j]<0) and (j=2) then k:=k+1;
write(a[i,j]:4)
end;
writeln;
end;
writeln ('Количество отрицательных элементов второго столбца: ',k);
z:=a[1,1];
for i:= 1 to n do
for j:=1 to m do
if a[i,j]<z then z:=a[i,j];
for i:= 1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>0 then a[i,j]:=z;
write(a[i,j]:4)
end;
writeln;
end
end.
program n1;
var
A: array [1..6,1..6] of integer;
i, j, k, min: integer;
begin
for i := 1 to 6 do begin
for j := 1 to 6 do begin
A[i, j]:= Random(101)-50;
write (A [i,j]:4); end;
writeln; end;
k := 0;
for i := 1 to 6 do
if A[i, 2]<0 then k := k+1;
min := A[1, 1];
for i := 1 to 6 do begin
for j := 1 to 6 do
if A[i, j]<min then min := A[i, j]; end;
for i := 1 to 6 do
for j := 1 to 6 do
if A[i, j]>0 then A[i, j] := min;
writeln ('k=', k);
writeln;
for i := 1 to 6 do begin
for j := 1 to 6 do begin
write (A [i,j]:4); end;
writeln; end;
END.