Составить программу на языке pascal. используя цикл . определить минимальное число из введенной с клавиатуры последовательности положительных чисел, ввод заканчивается отрицательным числом.
VasyaKotikSnake
3
20.05.2019 01:30
0
Другие вопросы по теме Информатика
Ukine
11.08.2019 00:30
мажорчик2
11.08.2019 00:30
Буторин1306
17.07.2019 11:30
taxirkuliev
29.05.2019 05:50
kabdushevaaynash
29.05.2019 05:50
диана128
15.04.2020 13:17
26Violetta26
28.09.2019 12:01
Популярные вопросы
- Определить координаты точек пресечения с осями координат графика...
2 - Массовой культуре присуща: 1) коллективность творчества 2) ориентация...
2 - Кто такие старообрядцы,почему произошел раскол в середине 17 века...
3 - Частота световых колебаний равна 4*1014 гц. определить длину волны...
1 - Вычислить предел: limx→8 2/x^2+3x !...
1 - Готовая лабораторная работа определение эквивалента меди...
3 - В23 ч ночи из москвы в иркутск вылетел самолёт,а в 4 часа утра следующих...
2 - 10x^2+5x=0 найдите корни уравнения )...
2 - Сумма корней (корень, если он единственный) уравнения корень(х+5)...
2 - :вставьте пропущенное слово 1.опорно -двигательный человека составляют...
1
var
a, min: integer;
begin
min := 1000;
repeat
readln(a);
if(a < min) and (a >= 0) then min := a;
until(a < 0);
writeln('Минимальное число: ', min);
end.