Дан целочисленный массив из 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. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
yazeva006
2
31.05.2019 06:10
5
Другие вопросы по теме Информатика
sickman1991
16.10.2021 19:08
НикСол
20.10.2020 06:24
zufarovaindira
20.10.2020 06:59
амира45
20.10.2020 06:23
cerrys12
18.05.2021 12:12
missstelmah2002
08.09.2019 19:10
Vlad8081
26.02.2020 22:47
Костя228337
01.10.2019 08:30
Dyhanexis
01.10.2019 08:30
Популярные вопросы
- Две пары крыльев у жука: переднюю и заднюю.назовите отдел тела, к которому...
1 - Переписать,разделяя слова для переноса лучше горькая правда,чем сладкая ложь....
3 - Составь уравнения и реши их . 1) произведения задуманного числа и числа 8...
3 - Оптовая цена пачки печенья 21 рубль. магазин продаёт печенье с наценкой 30%....
1 - Решите уравнение! 243+3^2x-43^x+2=0...
1 - Как решить уравнение один из корней уравнения x2-13x+q=0. равен 12,5.найдите...
3 - Где хранится информация? какие носители информации используются для хранения...
1 - Вшахматном турнире было сыграно 45 партий. определите число участников турнира,...
3 - Проверочное слово к слову прекрасный...
2 - Вчём причины поражения восставших крестьянской коротко если можно...
3
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.