В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
лорею
лорею
04.08.2021 20:19 •  Информатика

1)дан массив из 10 элементов, вывести их на экран и выяснить, какой из элементов k или s является большим (k, s < 11 и с клавиатуры)

Показать ответ
Ответ:
Птичка220903
Птичка220903
28.05.2020 08:24

var

  a : array [1..10] of integer;

  i, k, s : integer;

begin

  randomize;

  for i := 1 to 10 do a[i] := trunc (random (100));

  for i : 1 to 10 do write (a[i], ' ');

  writeln;

  read (k, s);

  if a[k] > a[s] then write ('a[k] > a[s]')

  else if a[k] = a[s] then write ('a[k] = a[s]')

  else write ('a[k] < a[s]');

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота