ПОЖАЛУЙСТА ПОМОГИТЕ Дан целочисленный массив из 30 элементов, все элементы которого –...

Question

ПОЖАЛУЙСТА ПОМОГИТЕ








Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не превосходящие 10000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «Таких чисел нет».

const N=30;

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

i, j, min: integer;

begin

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

...
end.

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

Comments

да

Answer 1

var a, b, c, n, i :integer;   
s: array [1..30] of integer;
begin
   for i:=1 to 30 do 
      read (s[i]);
   for i:=1 to 30 do 
      if s[i] div 1000 = 0 then a:=s[i];
   if a=0 then write ('No') else 
      for i:=1 to 30 do 
         if (s[i] div 1000 = 0) and (a>s[i]) then a:=s[i];
   write (a);
end.