Дан массив, содержащий 30 целых чисел. элементы массива могут принимать целые значения от 0 до 1000. опишите на одном из языков программирования алгоритм, позволяющий найти минимально трехзначное число, записанное в этом массиве. если такого числа нет то нужно вывести сообщение об этом. 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. паскаль
Angel9087
1
09.06.2019 17:40
0
Другие вопросы по теме Информатика
Soto350
06.09.2019 13:00
barinova6
30.03.2019 16:30
airmenplay
30.03.2019 16:10
Wikwsejjj
30.03.2019 16:10
ka013382
30.03.2019 16:10
12320071
30.03.2019 14:29
styopyshca
30.03.2019 14:37
alihannurmambe
30.03.2019 16:00
Популярные вопросы
- Х×16=64 18×к=54 26×у=78 m×37=74 51÷z=17 80÷n= 16 w÷5 =15 p÷24=4...
1 - Укота матроскина, который ловил рыбу,было в коробке 5 червей. на трех червей он...
1 - Народ нужн характеристика к брашне вдове из расказа муму...
2 - Составить словарь с разделительным твердым знаком после приставки...
3 - Стулья шириной 60 сантиметров надо установить вдоль стены , длина которой 7м....
3 - Из какого произведения эти строки ты все пела? это дело...
3 - Произведите фонетический разбор этих слов любовь, юсиф, зренье, шить...
3 - Начерти отрезок длина которого равна ,сумме длин данных отрезков...
3 - Найдите производную функции по определению y (5), если y=x×3x^4...
2 - Длина и ширина ирина одной из комнат дачного дома 6м и5м, а другой - 5м и 4м....
1
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
end.