Question

ПАСКАЛЬ
Дан массив, содержащий 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.

Answer 1

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.