Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dimka2zab
17.01.2023 12:58 •
Информатика
Записать в элемент массива [4,6] значение произведения индексов
Показать ответ
Ответ:
Maowsk
07.07.2020 23:12
type mas = array[1..10, 1..10] of integer;
Это для всех элементов
for x:=1 to 10 do begin
for y:=1 to 10 do begin
mas[x,y] = x * y;
end;
end;
Это только для 4,6
mas[4,6] = 4*6
0,0
(0 оценок)
Ответ:
ВКВКВКВКВКВКВК
07.07.2020 23:12
const
k = 4;
p = 6;
var
f: array [1..k, 1..p] of byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 100);
write(f[i, j]:3);
end;
writeln();
end;
writeln();
f[k, p] := k * p;
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bayramovameyra
30.06.2021 18:59
Якщо значення змінноїх дорівнює 10, ви«Pascal».2. Довжина сторони квадрата а, радіус колПрактична роботаСкладання та виконання алгоритмів з роз“нання алгоритмів з розгалуженнямвести...
Selid
14.12.2021 05:33
Составить блок схему алгоритма для решения следующей задачи:Известно,что плата за питание в школе за месяц составляет 1500 рублей (22 дня).Расчитать,сколько нужно заплатить...
zgonnikovakisa11
15.03.2021 18:40
Переведите число 301в10 в двоичную, восьмеричную и шестнадцатеричную систему счисления...
досметова
02.08.2020 01:44
Программа загадывает 35 случайных чисел из промежутка[50; 350]и подсчитывает сколько из них являются кратными 3,но не заканчивающихся цифрой 2. paskal....
egortupi
20.10.2021 17:17
Дан рекурсивный алгоритм: procedure f(n: integer); begin writeln(n); if n 7 then begin writeln(n); f(n+2); f(n*2); f(n*3) end end; найдите сумму чисел, которые будут выведены...
ahmed0051
29.03.2021 03:07
1)правильно ли определён тип величины? а) номер вагона - вещественный тип б) сорт яблок - символьный тип в)количество дней в отпуске - целый тип 2)укажите тип величины, если...
ukaldarbek206
29.05.2021 02:20
Вычислить и вывести на экран значение функции y=y(x) для всех x из диапазона (xl, xr) с шагом k (k xr–xl). для всех значений x, в которых функция y(x) не существует вывести...
avernius
29.05.2021 02:20
Пропускная некоторого канала связи равна 256 000 бит/с. сколько времени займёт передача файла объёмом 500 кбайт по этому каналу? а) 64 с б) 32 с в) 4 мин. г) 16 с...
anyr04
02.05.2023 02:59
Как проверит слова зимнюю ( проверить надо окончание )...
diasj5kz
02.05.2023 02:59
10 предложений с не (5 слитно, 5 раздельно) не с существительными. нужно....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Это для всех элементов
for x:=1 to 10 do begin
for y:=1 to 10 do begin
mas[x,y] = x * y;
end;
end;
Это только для 4,6
mas[4,6] = 4*6
k = 4;
p = 6;
var
f: array [1..k, 1..p] of byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 100);
write(f[i, j]:3);
end;
writeln();
end;
writeln();
f[k, p] := k * p;
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
end.