Регистрация
Вапрос86
01.10.2022 16:47
Информатика
Есть ответ 👍

Нарисуйте это в Pascal ​

164
181
Посмотреть ответы 1

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

nastgoliakova
nastgoliakova
4,5(72 оценок)
{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии   в операторах uses, clrscr, readkey } const   n = 10; var   a: array[1..n, 1..n] of integer;   i, j, min, max: integer; begin   randomize;   {clrscr; }   writeln('исходный массив');   max: =-100; min: =100;   for i : = 1 to n do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81)+10;           write(a[i,j]: 3);           if max< a[i,j] then max: =a[i,j]           else               if min> a[i,j] then min: =a[i,j]       end;       writeln   end;   writeln('min=',min: 2,', max=',max: 2);   {readkey} end. тестовое решение: исходный массив   38 43 63 12 80 87 22 82 39 52   88 82 79 35 68 67 66 63 84 85   78 48 46 26 63 71 32 71 86 45   11 38 55 12 75 85 68 13 64 88   87 16 27 26 74 34 88 76 26 25   74 45 17 18 43 81 88 46 40 18   65 41 87 85 51 59 36 76 51 73   90 63 89 87 88 71 31 29 43 38   74 47 55 70 61 56 31 46 60 84   88 31 64 56 32 55 19 32 66 24 min=11, max=90

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