Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Волвлчлчлч
02.12.2020 00:35 •
Информатика
Массив содержит рост 10 учеников 9 класса. проверить есть ли в классе хотя бы один ученик роста 172 см и вывести его номер по списку
Показать ответ
Ответ:
mayorovagelya
24.06.2020 10:57
Program one;
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]=172 then write i;
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
fuvgkvu
22.06.2020 22:46
Переведите в Килобайты 2 Мб, 1 Гб...
nikitakondrate1
18.12.2021 03:46
Как сделать вывод флагов многостроничным colors = [ red , green , blue ]flag = [ | .join((x, y, z)) for x in colors for y in colors for z in colors if x == red...
catnoir227
14.05.2021 08:31
Каким числом можно заменить переменную x, чтобы результат выражения был равен наименьшему нечетному пятизначному двоичному числу?В ответ запишите только число в...
Мур3иk
30.10.2021 23:57
Var A: Real; B: Integer; В каких операторах правильно организовано ввода значений переменных?1)А := StrToFloat(Edit1.Text);2)В := StrToInt(Edit1.Text);3)А := StrToInt(Edit1.Text);4)Edit1.Text...
umnyyk
31.05.2021 20:23
Выберите общие имена объектов: машина берёза москва байкал пушкин а.с. операционная система клавиатурный тренажёр windows xp отметьте признаки, которые могут быть...
pdgjdis
24.03.2021 02:56
Напишите программу подсчитывающая количество минимальных элементов в заданном массиве...
narenkovaa
09.11.2021 17:41
ЗАДАНИЯ ПО СУММАТИВНОМУ ОЦЕНИВАНИЮ ЗА 2 ЧЕТВЕРТЬ Суммативное оценивание за раздел «Решение задач с электронных табли» Задания 1, Подпишите названия фрагментов,...
dianakazaryan1
09.12.2020 09:18
Конспект на тему программирование алгоритма...
MisterPOR
01.11.2021 18:03
Напишите уравнения реакции полимеризации этилена. в чем сходство ее с реакцией поликонденсации?...
гулнора
01.11.2021 18:03
Найти сторону треугольника если его площадь равна 18см2,а высота проведенная к этой стороне равна 9см...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]=172 then write i;
end;