Решите через while.
напишите программу, которая в последовательности натуральных чисел определяет минимальное число, программа получает на вход количество чисел в последовательности, а затем сами числа, введённые числа не превышают 3
Касандра0077
1
20.01.2020 17:22
0
Другие вопросы по теме Информатика
gbn2r56
14.04.2020 14:22
Стары
14.04.2020 14:22
nina236
14.04.2020 14:22
emil132
01.05.2021 17:32
styopyshca
01.05.2021 17:10
DarkneSS341
10.09.2021 00:24
KakЭтоTak
24.07.2019 15:40
БраткаТвой
11.09.2019 02:00
nagibator893067TITAN
11.09.2019 02:00
Популярные вопросы
- Назовите две составляющие образа себя...
3 - Green. / Talk with your friend..• in front of • between• on .in . underVO1...
1 - Вычисли:(–7) + (–5) + (–3) + (–1) + 1 + 3 + 5 + 7...
3 - Решите уровнение 2(9+5)-14=26...
2 - Розв яжіть нерівність 2х 10...
3 - Электричка длиной 300 м двигалась по тоннелю равномерно. Она преодолела...
1 - Упростите выражение А)8к+к^2+16/15к^2+3к : 16-к^2/25к^2-1 Б)(х+1/х-1 - х-1/х+1):(х^2+1/х^2-1...
3 - НОЗ чисел 4/15 2/7 1/2 3/5 3/4...
2 - В чем видели декабристы долг поэта гражданина?...
1 - 4. Риса характеру, яка є перешкодою в досягненні успіху....
2
i+=1 - это тоже самое i:=i+1
Var a, i, min, n: integer;
Begin
Write('Количество чисел = ');
Read(n);
min:=30000;
while i<>n do
Begin
Read(a);
i+=1;
If min>a then min:=a
End;
Writeln('min = ', min);
End.