ПАСКАЛЬ
Дан массив, содержащий 10 неотрицательных целых чисел, не превышающих 10 000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести на экран минимальное из всех содержащихся в массиве трёхзначных чисел, десятичная запись которых оканчивается на 4, но не на 44. Если подходящих чисел в массиве нет, программа должна вывести число 0. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
const N=10;
var
a: array [1..N] of integer;
i, j, x, y: integer;
begin
for i:=1 to N do
read(a[i]);
…
end.
const N=10;
var
a: array [1..N] of integer;
i, j, x, y: integer;
begin
for i:=1 to N do
read(a[i]);
x:=1000;
for i:=1 to N do
if (a[i]mod 10=4)and(a[i]mod 100<>44)and(a[i]div 100>0)and(a[i]div 1000=0)and(a[i]<x)
then
x:=a[i];
if x=1000 then
write(0)
else
write(x)
end.