Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kseniyazoloto
03.05.2023 16:02 •
Информатика
Заполнить массив паскаль 20 ! ) 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1
Показать ответ
Ответ:
асел9
07.10.2020 14:04
//Pascal
const
n = 5;
m = 5;
var
i, j, k: integer;
a: array [1 .. n, 1 .. m] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
if j mod 2 = 0 then A[i, j] := 0
else A[i, j] := 1;
write(A[i, j]:3);
end;
writeln;
end;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kkarinanexK
09.07.2020 10:15
Напишите программу которая принимает с клавиатуры целое число часов и выводит на экран! ...
Юсик1854
04.07.2022 10:17
Напишите команды выборки для получения справки с использованием сложных логических выражений: 1.определить все даты до апреля 2018 года, когда температура была ниже нуля. 2.определить...
горро1
16.03.2023 02:46
Надо сделать шестиконечную звезду в phytone....
Lola664
21.08.2022 12:55
Написать код на python. даны два целых числа a и b (с a ≤ b). выведите все числа от а до б включительно. если вы напишите 10. ваш вывод должен быть 12345678910....
ivanivanov2007r
13.07.2020 03:44
Информатика 4класс 2часть стр.9 №11 горячев а.в....
anyamaleva97
15.03.2020 01:08
Python Компьютер загадывает число. Напишите программу, которая его отгадывает...
baseke2018
23.08.2020 08:49
Определите формат ячеек...
dashashirobokova
25.09.2022 05:14
В результате эксперимента была получена информация, которая уменьшилась в 8 раз ,. Количество этой информация равно? Решение нудно...
AsunaUmi
11.08.2022 16:16
Определить в MS Excel стоимость проката авто. Если автомобиль был в прокате меньше 2 дней, то 945 руб., если от 2 до 7 дней, то 740 руб., если больше 7дней, то 535 руб. за день....
polina686
30.04.2023 08:40
Выпишите словосочетания, в которых прилогательные употребленые в переносном значении составьте, этим словосочетаниями несколько предложений 1) крутой берег: крутой кипяток: крутой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
n = 5;
m = 5;
var
i, j, k: integer;
a: array [1 .. n, 1 .. m] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
if j mod 2 = 0 then A[i, j] := 0
else A[i, j] := 1;
write(A[i, j]:3);
end;
writeln;
end;
readln;
end.