Найти максимальный элемент К-ого столбца. сделать с подпрограммами

@Natalija · Регистрация: 26.09.2010

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

Найти максимальный элемент К-ого столбца. сделать задачу с подпрограммами
и вторая задача, тоже с подпрограммами нужно сделать

найти номер столбца первого отрицательного элемента

только пожалуйста не очень сложно, на уровне 11 класса

@pryda · 22.10.2010, 23:52

1)

Pascal

const n=3;
      m=3;
var a:array[1..n,1..m]of integer;
    i,j,k:integer;
function max(k:integer):integer;
var m:integer;
begin
     m:=a[1,k];
     for i:=2 to n do
     if a[i,k]>m then m:=a[i,k];
     max:=m;
end;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln('Введите номер столбца');
readln(k);
for i:=1 to n do
begin
     for j:=1 to m do
     write(a[i,j]:5);
     writeln;
end;
writeln('Максимальный элемент ',k,' столбца = ',max(k));
end.

Добавлено через 10 минут
2)

Pascal

const n=3;
      m=3;
var a:array[1..n,1..m]of integer;
    i,j,k:integer;
function num:integer;
var f:boolean;
begin
f:=false; num:=0;
for j:=1 to m do
begin
     if f then break;
     for i:=1 to n do
     if a[i,j]<0 then
     begin
          num:=j;
          f:=true;
          break;
     end;
end;
end;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
if num=0 then writeln('Отрицательных эл-тов не обнаружено!') else
writeln('№ столбца 1-го отрицательного эл-та: ',num);
end.

@Natalija 0 / 0 / 0 Регистрация: 26.09.2010 Сообщений: 20
		1
	Найти максимальный элемент К-ого столбца. сделать с подпрограммами 22.10.2010, 19:45. Показов 1320. Ответов 1 Метки нет (Все метки) Найти максимальный элемент К-ого столбца. сделать задачу с подпрограммами и вторая задача, тоже с подпрограммами нужно сделать найти номер столбца первого отрицательного элемента только пожалуйста не очень сложно, на уровне 11 класса 0

	22.10.2010, 23:52

Найти максимальный элемент К-ого столбца. сделать с подпрограммами

Решение