Скачать программы    Все программы автора

Задание №11

Дан прямоугольный массив А(m,n).Получить линейный массив В(m), в котором В(і)-max элемент і - й строки массива А(m,n).і изменяется от 1 до m.

Program my;

var a: array[1..100,1..100] of integer;

b: array[1..100] of integer;

max, m, n, i, s, k: integer;

begin

max:=-1000;

writeln('введите размерность массива=');

readln(m, n);

writeln('заполнить массив');

for i:=1 to m do

for k:=1 to n do;

read(a[i, k]);

for i:=1 to m do

begin

max:=-1000;

for s:=1 to n do

begin

if max < a[i, s] then

max:=a[i, s];

b[i]:=max;

end;

end;

write('максимальные элементы каждой строки');

for i:=1 to n do

write (b[i]);

end.