Регистрация
MaFizLike
22.05.2021 04:35
Информатика
Есть ответ 👍

решить задание по олимпиаде 8 класс по информатике в pascalABC.net​

149
430
Посмотреть ответы 1

Ответы на вопрос:

Жебир
Жебир
4,6(12 оценок)
Pascalabc.net 3.4.2, сборка 1847 от 28.10.2018 внимание! если программа не работает, обновите версию!

begin

  var c : = arrrandom(20, -50, 50);

  c.println;

  var i : = c.findindex(t -> t < 0);

  writeln('c[', i + 1, '] = ', c[i])

end.

пример

11 33 16 -45 -43 -41 6 -41 47 6 28 39 -28 -29 20 42 -17 -33 -4 -35

c[4] = -45

Популярно: Информатика