Ввести в память машины двумерный массив А (М,N)

Question

Ввести в память машины двумерный массив А (М,N). Найтти наибольший элемент в каждой строке и из найденых чисел сформировать одномерный массив В (М)

Answer 1

95

yanek

04 апреля 2023

program pr; vardmas: array [1… 100, 1… 100] of integer; omas: array [1… 100] of integer; n,m,i,k,x: integer; beginx: =0; writeln ('Введите столбцов массива'); readln (m); writeln ('Введите строк массива'); readln (n); for i: =1 to n dobeginwriteln ('Введите элементы ',i,' строки'); for k: =1 to m do readln (dmas[i,k]); end; for i: =1 to n dobeginfor k: =1 to m do if dmas[i,k]>x then x: =dmas[i,k]; omas[i]: =x; x: =0; end; writeln ('Выводим одномерный массив'); for i: =1 to n do writeln (omas[i]); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: