ПОМОГИТЕ! ПАСКАЛЬ! Создать массив интервалом 6 ** 6 случайным образом интервал(-50;50]....

Question

ПОМОГИТЕ! ПАСКАЛЬ! Создать массив интервалом 6 на 6 случайным образом интервал(-50;50]. 1.Найдите количество отрицательных элементов второго столбца. 2.Заменить все положительные элементы на минимальные.

Answer 1

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]

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]

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.

Answer 2

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;</p>

min := A[1, 1];

for i := 1 to 6 do begin

for j := 1 to 6 do

if A[i, j]

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.

Comments

3 правильно

---

почему то 5 выдает

---

все

---

2ъ

---

спасибо братиш\

---

опять 6 выдает

---

фхывзащфхыав

---

а нет

---

ля, какая то херь, то 2,3

---

а , эт же рандом