Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / Задача 12 (поменять макс элемент каждый строки с 1ым элементом (например))

.txt
Источник:
Скачиваний:
264
Добавлен:
04.03.2014
Размер:
1.22 Кб
Скачать
12) в строках матрицы - найти макс и поменять местами с чем-то
(я меняла для разнообразия с первым элементом)

program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..15,1..20] of integer;

procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok');
readln(n);
writeln('VVedite kolichestvo stolbzov');
readln(m);
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;

procedure POISK (var a:mas;n,m:integer);
var i,j,max,kol,jmax:integer;
begin
for i:=1 to n do begin
max:=a[i,1];
jmax:=1;
for j:=1 to m do if a[i,j]>max then begin
max:=a[i,j];
jmax:=j;
end;
a[i,jmax]:=a[i,1];
a[i,1]:=max;
end;
end;


procedure VIVOD (a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (a[i,j],' ');
writeln;
end;
end;

var A:mas;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m);
writeln('Poluchennaya matriza');
VIVOD(A,n,m);
readln;
end.