Question

Напишите программу в Paskal по этой задаче

Answer 1

Program zadacha;

var a:array[1..1000] of integer;

i,x,min:integer;

begin

 writeln('Введите кол-во чисел в последовательности:');

 readln(x);

 writeln('Введите числа:');

 for i:=1 to x do readln(a[i]);

 

 min:=30000;

 for i:=1 to x do

 if (a[i] mod 100 = 12)and (a[i]<min) then min := a[i];;

 writeln('Результат: ',min);

end.