Найдите максимальный по модулю элемент матрицы

@partizanka=) · Регистрация: 20.10.2010

Author24 — интернет-сервис помощи студентам

Найдите максимальный по модулю элемент матрицы М (5,6), номер его строки и столбца. Определите количество отрицательных не кратных 3 элементов найденного столбца исходной матрицы.

@pryda · 02.11.2010, 21:35

Pascal

var a:array[1..5,1..6]of integer;
    i,j,inum,jnum,max,k:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 6 do
a[i,j]:=random(25)-15;
max:=abs(a[1,1]); inum:=1; jnum:=1;
for i:=1 to 5 do
begin
    if abs(a[i,j])>max then
    begin
        max:=abs(a[i,j]);
        inum:=i;
        jnum:=j;
    end;
end;
writeln('Максимальный по модулю элемент= ',max);
writeln('Номер строки= ',inum,' столбца= ',jnum);
k:=0;
for i:=1 to 5 do
if (a[i,jnum]<0)and(a[i,jnum] mod 3<>0) then inc(k);
writeln(k);
end.

@partizanka=) 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 22
		1
	Найдите максимальный по модулю элемент матрицы 02.11.2010, 21:12. Показов 1309. Ответов 1 Метки нет (Все метки) Найдите максимальный по модулю элемент матрицы М (5,6), номер его строки и столбца. Определите количество отрицательных не кратных 3 элементов найденного столбца исходной матрицы. 0

	02.11.2010, 21:35

Найдите максимальный по модулю элемент матрицы

Решение