Програма на паскалі Введіть з клавіатури n будь яких чисел. З'ясувати яке число було введено раніше, максимальне чи мінімальне
caros14
1
20.01.2021 03:09
0
Другие вопросы по теме Информатика
mako011111
24.06.2019 16:10
friskdrimur
06.09.2020 00:28
Региша10
06.09.2020 00:27
ник5043
30.05.2019 10:40
serdykivka
30.05.2019 10:40
AliAlinka2006
16.05.2020 16:52
DashaBudlevskaya
16.05.2020 17:03
TigerForceCasual
16.05.2020 17:04
nastya84398
07.09.2019 22:00
Популярные вопросы
- Запишите при каких значениях игрик дробь игрик 7 правильная...
3 - Найдите дробь от числа. 1) 3/5 от 15 2) 4/5 от 20 3) 5/6 от 48...
3 - Составить крассворд на каз.яз из слов зима, февраль, декабрь,...
2 - 5555=80 в этом уравнение нужно расставить знаки . ....
2 - Какие при животным переносить жару,а какие холод?...
2 - Какой из шести падежей никогда не употребляется с предлогом,а...
2 - Дополнить предложения: для участия в половом размножении в родительских...
1 - Одну и ты же коробку заполнили сначала кубиками с ребром...
1 - Кпроходным рыбам относят? 1)речного окуня 2)атлантического осетра...
2 - Какая форма отбора действует при стабильных условиях?...
2
Всё просто.
Объяснение:
var
i, min, max, n: integer;
begin
min:=MaxInt; max:=-MaxInt-1;
Write('Введите 10 чисел: ');
for i:=1 to 10 do begin
Read(n);
if n<min then min:=n;
if n>max then max:=n;
end;
Writeln('min=',min);
Writeln('max=',max);
end.