Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kim5194557878
29.07.2021 01:49 •
Информатика
Заполнить двумерный массив случайными числами от 10 до 100.
Ответ:
Anechka201
07.08.2020 10:01
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=MatrixRandom(5,5,10,100);
Writeln(a)
end.
Тестовое решение:
[[26,15,69,59,40],[27,62,65,49,63],[99,80,37,44,40],[54,95,35,19,70],[45,31,28,88,68]]
0,0
(0 оценок)
Ответ:
masha1195
07.08.2020 10:01
Var m : array[1..5,1..5] of Integer;
i,j : Byte;
Begin
Randomize;
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Begin
m[i,j]:=Random(91)+10;
Write(m[i,j]:4);
end;
Writeln;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
OBOShh
05.08.2021 17:02
Переведите целое число 213 из десятичной системы счисления в двоичную систему счисления. ответ: 1. 10010101 2. 11010011 3. 11010101...
sayvik1
15.04.2020 20:28
Определить значение переменной S после выполнения следующих команд: S:=0; i:=0; while i 5 do i:=i+1; s:=s+i*i;...
хах24
18.07.2021 01:29
Сообщение записано в 8- битом коде, и было перекодировано в 16 - битовую кодировку . в результате обьём увеличился на 8000 битов . найдите информационный обьём до...
SUPERMARY007
18.07.2021 01:29
Известны объём тела v и масса тела m. определите плотность материала p...
LogiutNowakk
18.07.2021 01:29
Задан случайно массив из 20 целых чисел в интервале от -100 до 100. подсчитать количество положительных, отрицательных и нулевых элементов...
Kukushka2281337
27.08.2020 13:50
Заранее главное решение было, а не ответ. дан алфавит мощностью 4. определить количество информации на символе сообщения, составленного из этого алфавита: a) если...
vinney
14.09.2022 04:18
Мальчик решил заменить каждую букву своего имени её номером в алфавите. Получилось 1 13 6 12 19 6 11. Какое имя у мальчика?...
IBRAGIM058
15.05.2020 08:24
Дана программа. Введи данную программу в Паскаль....
Лилия22111048483
21.11.2020 16:34
Сформировать квадратную матрицу порядка n по заданному образцу(Паскаль) 1 0 0 … 0 0 01 1 0 … 0 0 01 1 1 … 0 0 0…………….1 1 1 … 1 1 01 1 1 … 1 1 1...
Charafoxcoteyca34
04.07.2022 18:27
Какие из команд не принадлежат алгоритмическому языку Кумир 1) пц 2) рц 3)нц 4) нач 5) кон 6) нг 7) кц...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var a:=MatrixRandom(5,5,10,100);
Writeln(a)
end.
Тестовое решение:
[[26,15,69,59,40],[27,62,65,49,63],[99,80,37,44,40],[54,95,35,19,70],[45,31,28,88,68]]
i,j : Byte;
Begin
Randomize;
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Begin
m[i,j]:=Random(91)+10;
Write(m[i,j]:4);
end;
Writeln;
end;
end.