Регистрация
mussay86
08.12.2021 03:55
Информатика
Есть ответ 👍

Какие действия можно совершать с понятиями

290
320
Посмотреть ответы 1

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

хорёк05
хорёк05
4,5(63 оценок)

program raf105;

var min,n,a,i: integer;

begin

write('введите количество чисел: ');

readln(n);

writeln('вводите числа по очереди');

min: = 30001;

for i: =1 to n do

begin

  readln(a);

  if ((a mod 100)=14) and (a

    then min: =a;

end;

writeln('вывод: ',min);

end.

язык pascalabc

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