Заменить все минимальные элементы на противоположные через процедуру - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста написать данный код через процедуру

Решение задачи: «Заменить все минимальные элементы на противоположные через процедуру»

textual
Листинг программы
var
a:array[0..4,0..5] of integer;
b:array[0..5]of integer;
procedure vvod;
    var i,j:integer;
    begin
    for i:=0 to 4 do
        begin
        for j:=0 to 5 do
            begin
            a[i,j]:=1+random(9);
            write(a[i,j]:4);
                if j=0 then b[i]:=a[i,0];
                if a[i,j]<b[i] then b[i]:=a[i,j];
            end;
            writeln;
         end;
    end;
procedure zamena;
    var i,j:integer;
    begin
    for i:=0 to 4 do
        begin
        for j:=0 to 5 do
            begin
            if a[i,j]=b[i] then
               a[i,j]:=-a[i,j];
        write(a[i,j]:4);
            end;
        writeln;
        end;
    end;
begin
randomize;
writeln('Массив:');
vvod;
writeln('Замена минимального противоположным:');
zamena;
end.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы