М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rootiopa2
rootiopa2
19.01.2021 07:14 •  Информатика

Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [10; 10] и вывести ее на экран. удвоить все элементы матрицы и вывести ее на экран. найти минимальные и максимальные элементы в матрице, указать номера. просто матрица и удвоенная есть. теперь нужно найти мин. и макс. значения program ff; uses crt; const n=8; m= 5; var a: array [1..n, 1..m] of integer; i,j: integer; begin writeln ('матрица: '); for i: =1 to 8 do begin for j: =1 to 5 do begin a[i,j]: =-10+random(21); write(a[i,j]: 4); end; writeln; end; for i: =1 to 8 do for j: =1 to 5 do a[i,j]: =a[i,j]*2; writeln ('удвоенная матрица: '); for i: =1 to 8 do begin for j: =1 to 5 dowrite(a[i,j]: 4); writeln; end; end.

👇
Ответ:
Alys1
Alys1
19.01.2021
Готово
UPD.Добавил минимальное и максимальное значения
4,4(47 оценок)
Открыть все ответы
Ответ:
pavelvladlem
pavelvladlem
19.01.2021
Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.
4,8(48 оценок)
Ответ:
Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.
4,5(80 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ