Question

Помогите написать программы для Паскаля. Нужно обязательно использовать массив (for):

1) На вход программы поступает неизвестное количество натуральных чисел, ввод заканчивается нулём. Определить, сколько получено двузначных чисел, которые начинаются на 4.

2) На вход программы поступает неизвестное количество натуральных чисел, ввод заканчивается нулём. Найти минимальное из введённых нечётных чисел.

Answer 1

Ответ:

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

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

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

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

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.