Главное меню

Вход на сайт

Кто на сайте?

Сейчас 36 гостей и ни одного зарегистрированного пользователя на сайте

Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными, приведенными в таблице написать программу на языке Pascal.
Количество строк n=30
Количество столбцов m=20
Результат – одномерный массив
Найти максимальный элемент в каждой строке матрицы отдельно

Решение

var A:array [1..30,1..20] of integer;
    Rez:array[1..30] of integer;
    i,j,max:integer;
begin
writeln;
writeln('Vvedite elementy massiva:');
for i:=1 to 30 do
for j:=1 to 20 do
read(A[i,j]);
for i:=1 to 30 do begin
max:=a[i,1];
for j:=2 to 20 do
    if a[i,j]>max then
     max:=a[i,j];
rez[i]:=max;
end;
writeln('Max elementy v stroke');
for i:=1 to 30 do
write(Rez[i],' ');
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте