максимальный элемент в каждой строке и записать данные в новый массив

@Kirillka55 · Регистрация: 26.11.2015

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

Помогите пожалуйста!
Найти максимальный элемент в каждой строке и записать данные в новый массив.

@DoctorCrazy · 03.12.2015, 16:13

Kirillka55, вот

Pascal

program primer;
uses crt;
var a: array[1..10 , 1..20] of integer;
b: array[1..20] of integer;
i,j,n,m,max,min:integer;
begin
clrscr;
writeln ('Введите размер матрицы n,m ');
readln(n,m);
writeln (' Введите элементы матрицы А: ');
for i:=1 to n do
  for j:=1 to m do
  readln (a[i,j]);
  writeln ('Исходная матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    write (a[i,j]:6);
    writeln;
  end;
for i:=1 to n do
 begin
  max:=a[i,1];
    for j:=1 to m do
  if a[i,j]>max then max:=a[i,j];
  writeln('Максимальный в строке ',i:2,'=',max);
  writeln;
  b[i]:= max;
  end;
    for i:=1 to n do
    write(b[i],' ');
    writeln;
end.

@Kirillka55 · 11.12.2015, 11:20 **[ТС]**

через рандом можно сделать ?? помогите

@Kirillka55 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 8
		1
	максимальный элемент в каждой строке и записать данные в новый массив 02.12.2015, 09:51. Показов 1570. Ответов 2 Метки нет (Все метки) Помогите пожалуйста! Найти максимальный элемент в каждой строке и записать данные в новый массив. 0

@Kirillka55 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 8
	11.12.2015, 11:20 [ТС]	3
	через рандом можно сделать ?? помогите 0

Опции темы

максимальный элемент в каждой строке и записать данные в новый массив

Решение