tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заполнить двухмерный массив: 12
Заполнить двухмерный массив: 12 24 108 120 11 23 107 119 2 14 98 110 1 13 97 109
rusrusik
1 30.07.2019 09:20
0
Ответы
hotrikplayp03euu
27.09.2020 21:14
Const n=12; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
for i:=n downto 1 do
begin
k:=k+1;
a[i,j]:=k;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Результат:
12 24 36 48 60 72 84 96 108 120
11 23 35 47 59 71 83 95 107 119
10 22 34 46 58 70 82 94 106 118
9 21 33 45 57 69 81 93 105 117
8 20 32 44 56 68 80 92 104 116
7 19 31 43 55 67 79 91 103 115
6 18 30 42 54 66 78 90 102 114
5 17 29 41 53 65 77 89 101 113
4 16 28 40 52 64 76 88 100 112
3 15 27 39 51 63 75 87 99 111
2 14 26 38 50 62 74 86 98 110
1 13 25 37 49 61 73 85 97 109
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
владимир203
31.07.2019 10:30
На языке с или с++ . напишите программу, которая получает день и номер месяца и определяет дату сле-дующего дня. считайте, что год невисокосный (365 дней). пример: введите...
Dshmz
11.12.2021 00:15
Вычислить используя дополнительное кодирование на байте и проверить свой результат. 1) 110111 в 2 с/с - 1101 в 2 с/с 2)100 - 1101 в 2 с/с...
klokova049otccwt
11.12.2021 00:19
A = 3 b = 8 s = a + b 10 print (s) True/False...
р6661
11.12.2021 00:19
50б. В турнире по бальным танцам принимают участие 400 спортивных пар. Каждой паре для участия в соревнованиях присваивается турнирный номер. Для создания базы данных необходимо...
мархабабурсакова6565
11.12.2021 00:21
1. x = 5 z = x = 4print(z)2. print( паті + сон == патісон )3.x = 3y = 2print(x*y+3 == x**y)...
aleksandraluka
10.03.2019 07:50
2в нулевой степени=0 а если 1*2 в нулевой степени=1 вопрос: почему?...
Атлант21
02.06.2019 10:40
Какие при во внешнем и внутреннем строении рыбы жить ей в водной среде?...
ник4934
02.06.2019 10:40
Примеры многозначных прилагательных которые имеют 5 разных значений...
Мерлинbrother2
02.06.2019 10:40
Для молодежи существует особый вид вклада, где начисление идет 12% годовых. сколько денег будут на счету через год, если на счет было положено 14000 рублей?...
Babka2002
02.06.2019 10:40
Указать продукты реакции следующих веществ: c₆h₅-ch-cl₂ + koh (водный р-р) ?...
Популярные вопросы
Расставьте все знаки препинания, а в скобках укажите после каждого предложения...
1
К сумме чисел 1,25 и −1 1/4 прибавь число, обратное числу 1 1/4. Составь...
1
Направление ветра северо-восточное, если он дует на:...
3
Найдите все пары натуральных решений уранения 1) x+y=7 2)x+2y=15...
1
МНЕ, ДО ЗАВТРА НУЖНО СДАТЬ...
2
очистки воды от хлора в домашних условиях...
2
Smoke young you to bea homework lot of do be therewho eat want somethingthe...
3
Почему естественное право стало основополагающем в законодательном процессе...
1
Опишите фотографию сделанную Карелиным...
2
Боковые стороны трапеции,описанной около окружности,равны 16 и 3.Найдите...
3
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
for i:=n downto 1 do
begin
k:=k+1;
a[i,j]:=k;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Результат:
12 24 36 48 60 72 84 96 108 120
11 23 35 47 59 71 83 95 107 119
10 22 34 46 58 70 82 94 106 118
9 21 33 45 57 69 81 93 105 117
8 20 32 44 56 68 80 92 104 116
7 19 31 43 55 67 79 91 103 115
6 18 30 42 54 66 78 90 102 114
5 17 29 41 53 65 77 89 101 113
4 16 28 40 52 64 76 88 100 112
3 15 27 39 51 63 75 87 99 111
2 14 26 38 50 62 74 86 98 110
1 13 25 37 49 61 73 85 97 109