Дан целочисленный массив из 30 элементов, все - вопрос №225602330 от НВТула 13.05.2021 15:24

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. исходные данные объявлены так, как показано ниже. запрещается использовать

НВТула · Answer

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.