Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Sekretik111
28.11.2022 04:55 •
Информатика
+еще схему имеется 10 результатов по прыжкам в длину c1 ,c2 ,…c10 . вывести на печать номера спортсменов, чей результат превышает l метров.
Показать ответ
Ответ:
morozovnikitamotop
05.10.2020 18:40
Var
c:array [1..10] of integer;
i,L:integer;
begin
writeln('Введите результаты');
for i:=1 to 10 do
read(c[i]);
writeln('Введите L');
read(L);
writeln('Номера спортсменов,чей результат больше L');
for i:=1 to 10 do
if c[i]>L then
write(i,' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
2000lev94
15.01.2021 21:18
В старину на Руси широко применялась система счисления, отдаленно напоминавшая римскую. Для записи чисел употреблялись следующие знаки: звезда - 1000, круг-100, квадрат-10, X-1,...
annahdh
26.09.2020 16:35
Какие группы инструментов нужны для выполнение данного рисунка...
Daniela04102005
10.04.2023 08:00
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а...
AlinaMein14
15.04.2023 16:26
Смоделировать безопасную детскую площадку. Продумать новейшие цифровые технологии для безопасности детей, играющих на этой площадке (робот-полицейский, датчики движений, ограждения...
spaisminGena
15.04.2022 08:57
11. Определите, что будет напечатано в результате работы следующей программы.Var s,k: integer;Begin s := 0; for k := 6 to 10 do s := s*3; writeln(s);End....
Pomogite23102017
09.03.2021 23:21
Где ошибка a = [] n = 5 mi =1000 for i in range(0, n): a.append(int(input())) for i in range (0, n): if((a[i] mi) and (a[i] 20) mi =a[i] print(mi)...
sasapanskov
08.10.2020 01:45
Из каких меню состоит строка меню Internet Explorer...
Nauchniki
22.03.2021 18:07
K=x*y*z информатика что означает...
Анастасия5863
04.01.2022 07:15
Какие группы вирусов вы знаете как размножаются файловый вирус...
тупоумная2525
24.06.2021 23:24
1. Запишите значение переменной sum после выполнения фрагмента программы. https://иванов-ам.рф/informatika_08_fgos/content/sr_27_04.jpg2. Запишите результат выполнения программы.https://иванов-ам.рф...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
c:array [1..10] of integer;
i,L:integer;
begin
writeln('Введите результаты');
for i:=1 to 10 do
read(c[i]);
writeln('Введите L');
read(L);
writeln('Номера спортсменов,чей результат больше L');
for i:=1 to 10 do
if c[i]>L then
write(i,' ');
end.