Регистрация
lizagileva2015
12.03.2022 08:43
Информатика
Есть ответ 👍

Напишите алгоритм строения в 3D редакторе​

121
258
Посмотреть ответы 1

Ответы на вопрос:

Лобан1
Лобан1
4,6(90 оценок)
Program matrix; var  a: array[1..10, 1..10] of integer; i, j, mini, minj, maxi, maxj, temp: integer; begin  randomize;   for i : = 1 to 10 do  begin     for j : = 1 to 10 do    begin       a[i, j] : = random(100);       write(a[i, j], ' ');     end;     writeln;     end;     mini : = 1;     minj: =1;     maxi : = 1;     maxj: =1;     for i : = 1 to 10 do      for j : = 1 to 10 do     begin        if a[i, j] < a[mini,minj]  then   begin        mini : = i;         minj : = j;       end;       if a[i, j] > a[maxi,maxj] then      begin         maxi : = i;         maxj : = j;       end;         end;         writeln('min = ',a[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );         writeln('max = ',a[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );         temp : = a[maxi, maxj];         a[maxi, maxj] : = a[mini, minj];         a[mini, minj] : = temp;         writeln;         for i : = 1 to 10 do  begin           for j : = 1 to 10 do           write(a[i, j], ' ');           writeln;         end;           readln;         end. temp - переменная для временного хранения минимальных и максимальных элементов.

Популярно: Информатика