Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена). ниже представлен рекомендуемый вид экрана во время работы программы: *определение максимального числа последовательности положительных чисел* вводите после стрелки числа. для завершения введите ноль
228дима228ннчнччн
2
07.07.2019 22:40
1
Другие вопросы по теме Информатика
adel1288
25.11.2021 06:03
Irisha1986
25.11.2021 06:03
Рофлер
25.11.2021 06:01
кит217
09.12.2021 19:13
zlodej
23.05.2019 10:40
aarchery
13.12.2021 22:57
Artem58268343
13.12.2021 22:56
kingsambraking6
13.12.2021 22:56
Популярные вопросы
- 0,8/х-0,2=4,2/1,2көмектесиниздерши ...
1 - Мне надо найти необычные слова и их значения по языку ( 4 класс ...
3 - Твір роздум на тему майстер ліричних поезій афанасій фет...
1 - Килотов сблизятся поезда за част6a6, решите равнения: 64» = 77; 2) а...
2 - Какие гормоны выделяют средняя доля гипофиза и , 50 ...
2 - Воснові піраміди лежить рівнобічна трапеція, бічна сторона якої дорівнює...
1 - Белоснежка вырастила 17 астр и 18 гладиолусов.сколько цветков осталось...
3 - Рассказ васюткино озеро! какие эпизоды вызвали у вас наиболее сильные...
3 - Найти количество занятых и безработных если активное население 85 млн...
1 - Это не делать если до каникул осталась 1 неделя, а по р. яз. у тебя...
3
Program readInteger;
Uses CRT;
Var s:char; z:Integer;
Begin
ClrScr;
WriteLn('Введите числа:');
repeat
If (KeyPressed = true) than
begin
S:=ReadKey
z:=z+1;
End;
Until s ="0";
Write('Вы ввели ',z,' чисел!');
ReadLn;
End.