Найти минимальные элементы каждой строки заданной матрицы Х(20х20)

@AlexanderBry · Регистрация: 04.05.2013

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

Помогите пожалуйста написать программу в паскале. Найти минимальные элементы каждой строки заданной матрицы Х(20х20) и поместить их на главную диагональ, а диагональные элементы записать на место минимальных. Заранее огромное спасибо!!

@КонецСвета · 04.05.2013, 22:22

Pascal

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    i,j,n,m,jmin: byte;
    buf: integer;
begin
repeat
write('Kol-vo strok, ne bolee ',nmax,', n=');
readln(n);
until n in [1..nmax];
repeat
write('Kol-vo stolbzov, ne bolee ',nmax,', m=');
readln(m);
until m in [1..nmax];
writeln('Dana matriza');
for i:=1 to n do
    begin
    jmin:=1;
    for j:=1 to m do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        if a[i,j]<a[i,jmin]
           then jmin:=j;
        end;
    buf:=a[i,i];
    a[i,i]:=a[i,jmin];
    a[i,jmin]:=buf;
    writeln;
    end;
writeln('matriza posle zameny');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
readln;
end.

@AlexanderBry · 04.05.2013, 22:41 **[ТС]**

спасибо огромное

@AlexanderBry 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 12
		1
	Найти минимальные элементы каждой строки заданной матрицы Х(20х20) 04.05.2013, 21:38. Показов 1975. Ответов 2 Метки нет (Все метки) Помогите пожалуйста написать программу в паскале. Найти минимальные элементы каждой строки заданной матрицы Х(20х20) и поместить их на главную диагональ, а диагональные элементы записать на место минимальных. Заранее огромное спасибо!! 0

@AlexanderBry 0 / 0 / 0 Регистрация: 04.05.2013 Сообщений: 12
	04.05.2013, 22:41 [ТС]	3
	спасибо огромное 0

Опции темы

Найти минимальные элементы каждой строки заданной матрицы Х(20х20)

Решение