В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
nicishcina
nicishcina
09.01.2020 07:50 •  Информатика

Всем доброго карантина я только учусь и узнаю у вас очень много! Задание:Есть глобальный массив "М" 10 на 10 целых чисел
Написать подпрограмму, которая заполнит этот массив (М) числом,
которое дадут при вызове подпрограммы (заранее неизвестно НАПИШИТЕ ВСЮ ПРОГРАММУ!

Показать ответ
Ответ:
дочь20
дочь20
12.10.2020 07:53

const

 nmax = 100;

 n = 10;

var

 a: array[1..nmax, 1..nmax]of integer;

var

 i, j: byte;

begin

 for i := 1 to N do

 begin

   for j := 1 to N do

   begin

     A[i, j] := Random(-10, 10);

     write(A[i, j]:5);    

   end;

   writeln;

 end;

end.

Тестовое решение

  -2    7  -10   -3   -4    6   -6    8    0    8

  10   -8   10    2   -2    7   -8   -7    5    9

  -4    4    3   -8   -4   -4   -8    7    1   10

  -8    3   -5    0    3   -9   -7    1   -7   -4

   2    2    8   -2    1   10   -7    7    6    7

  -6   -2    9    8   -4    4   -6    8   -9   10

   4   -3   -4    1    5   -3    7    0   10   -4

   3    2   10   -1   -3    4    7   -5    2   -3

  -8   -4   -9    5    6    4    4   -2   -7    9

   8   -4    0   -7    3   -6   -5   -3    3   -6

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота