Найти столбец матрицы, где находится ее min элемент и все элементы этого столбца умножить на 5

@edward2 · Регистрация: 06.01.2012

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

2. Найти столбец матрицы А(20*20), где находится ее min элемент и все элементы этого столбца умножить на 5.

@КонецСвета · 06.01.2012, 15:08

Сообщение от edward2

2. Найти столбец матрицы А(20*20), где находится ее min элемент и все элементы этого столбца умножить на 5.

Pascal

uses crt;
var a: array [1..20,1..20] of integer;
    i,j,imin,jmin: integer;
begin
writeln('Дан массив');
imin:=1;jmin:=1;
for i:=1 to 20 do
    begin
    for j:=1 to 20 do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        if a[i,j]<a[imin,jmin] then
           begin
           imin:=i;
           jmin:=j;
           end;
        end;
    writeln;
    end;
writeln('Наименьший элемент = ',a[imin,jmin]:5,' в строке ',imin,', в столбце ',jmin);
for i:=1 to 20 do
    a[i,jmin]:=a[i,jmin]*5;
writeln('press Enter to view the modified matrix');
readkey;
clrscr;
for i:=1 to 20 do
    begin
    for j:=1 to 20 do
        write(a[i,j]:4);
    writeln;
    end;
readkey
end.

@edward2 2 / 2 / 0 Регистрация: 06.01.2012 Сообщений: 18
		1
	Найти столбец матрицы, где находится ее min элемент и все элементы этого столбца умножить на 5 06.01.2012, 14:08. Показов 1630. Ответов 1 Метки нет (Все метки) 2. Найти столбец матрицы А(20*20), где находится ее min элемент и все элементы этого столбца умножить на 5. 0

Опции темы

Найти столбец матрицы, где находится ее min элемент и все элементы этого столбца умножить на 5

Решение