1.Найти номер столбца наименьшего элемента массива размером МхN, элементы которого задаются с клавиатуры. 2.Подсчитать произведение отрицательных элементов на побочной диагонали квадратной матрицы, элементы которой вводятся датчиком случайных чисел. (Паскаль,10 класс)

Вопрос школьника по предмету Информатика

1.Найти номер столбца наименьшего элемента массива размером МхN, элементы которого задаются с клавиатуры.
2.Подсчитать произведение отрицательных элементов на побочной диагонали квадратной матрицы, элементы которой вводятся датчиком случайных чисел.
(Паскаль,10 класс)

Ответ учителя по предмету Информатика

Ответ:

Элементы вводятся с клавиатуры.  Просмотрен 2319

program porydok;

Var a: array[1..50,1..50] of integer;

i, j, n, m,t,r: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i,j]:=int(rnd*44)-17;

write(a[i,j],’ ‘);

end;

Writeln;

end;

For j:=1 to n do

For r:=1 to m do

For i:=1 to m-1 do

if a[i,j]> a[i+1,j] then

begin

t:= a[i,j];

a[i,j]:= a[i+1,j];

a[i+1,j]:= t;

end;

For i:=1 to m do

begin

For j:=1 to n do write(a[i,j],’ ‘);

Writln;

end;

End.