Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
natalibezugla2
28.05.2021 18:08 •
Другие предметы
Расположите в хронологической последовательности исторические события. 1) Избрание Михаила Романова царем 2) Куликовская битва
Ответ:
Dodod616
30.05.2020 13:25
Var
a,b:array[1..100] of integer;
x,y,z,i,n:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do read(b[i]);
for i:=1 to n do begin
if a[i]>b[i] then inc(z) else
if a[i]end;
write(x,' ',y,' ',z);
0,0
(0 оценок)
Популярные вопросы: Другие предметы
hofferson
06.04.2023 04:28
Реши уравнения 2*|4x-9|-5=1 ...
Аминочка123
06.04.2023 04:28
Сынып жұмысы 2-тап.,40бет.Мәтіннің негізгі ойын жазыңдар, 5сұрақ құрастырыңдар....
dimanichaev799
24.10.2020 00:27
Осы сөздердің мағынасын айтындаршы және осы сөздерге сөйлем құрындар...
ALBERTALBERT2004
03.08.2020 14:12
Что такое предложение ?как признаками обладает?...
dnabib
21.08.2021 01:46
РАБОТА В 2A Найди объём параллелепипедов. 4 см 3 см 1 см 3 см 3 см 9 см 9 см 3 см 3 см 2Б Найди объём параллелепипедов по известным измере- ниям. Ширина Высота Длина 9 м 10...
АйданкаТоктогулова
21.08.2021 01:46
за выполнение, сразу же кто...
Allery
21.08.2021 01:46
Выразите 1024 бита в байтах ...
gilsveta4
08.04.2021 00:22
Мама купила 6 кг сухофруктов. 2/3 сухофруктов использовали на приготовлениекомпота. Сколько килограммов сухофруктов израсходовали на варку компота?А) 9 кг6) 4 krг) 1 кг...
elenasypchenkop00npz
06.02.2022 07:15
Сколько будет 30+30 я в 1 классе...
matveye234
15.01.2021 11:55
Как вычеслить кроень из 563...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a,b:array[1..100] of integer;
x,y,z,i,n:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do read(b[i]);
for i:=1 to n do begin
if a[i]>b[i] then inc(z) else
if a[i]end;
write(x,' ',y,' ',z);