tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу ,
Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. (
tattazhutdinov
1 24.05.2019 17:50
3
Ответы
katalkina17
20.06.2020 14:55
Var max,min,x: real;
i:byte;
Begin
read(x);
min:=x;
max:=x;
for i:=2 to 5 do
begin
read(x);
if (x<min) then min:=x
else
if (x>max) then max:=x;
end;
writeln ('Max = ', max,' Min = ', min);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Нннннннн11
29.06.2019 01:20
12. для групповых операций с файлами используются маски имён файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов...
ATimofeeva
29.06.2019 01:20
Пользователь работал с каталогом с: \фсб\досье\общие. затем он открыл в этом каталоге каталог мужчины. после он вышел, поднялся на один уровень вверх, и затем еще...
Sema1488
29.06.2019 01:20
Вычислите: (406 восьмеричная – 1011111в двоичная)х1011 двоичная +с1 шестнадцатеричная . ответ представьте в двоичной системе счисления, восьмеричной и шестнадцатеричной....
kazachok2
29.06.2019 01:20
Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 100 включительно опишите на естественном или на одном из языков...
таисия85
15.08.2019 10:10
Достаточно ли видеопамяти объемом 256 кбайт для работы монитора в режиме 640 х 480 и палитрой из 16 цветов?...
omar28
01.10.2019 23:00
Есть массив, не получается от каждого элемента отнять 20? сделать на с++ #include pch.h #include using namespace: : std; int main() { int i, arr[] = {1,2,3,4,5,6,7,8,9};...
Kisonka14
01.10.2019 23:00
Вмассиве из 5 элементов, заданных с клавиатуры, найдите разность между наибольшим и наименьшим элементом (pascal abc)...
hbgggb
01.10.2019 23:00
Вмассиве из n элементов, заданных случайным образом из промежутка [-20; 60], найдите произведение всех элементов, больших 20 (pascal abc)...
Oksana321
01.10.2019 23:00
Вмассиве из 12 элементов, заданных по формуле f[i]=i^2-5i-14 найдите сумму положительных значений (pascal abc)...
Neronkilir228
01.10.2019 23:00
Напишите программу,которая считает сумму цифр введенного числа (паскаль) programи fr; var a, sum: integer; begin writeln ( введите число ); readln (a); while a...
Популярные вопросы
Вычислите: (3/4) в -5 степени делить на (-3/4) в 8 степени...
3
Синапс это связь между двумя нейронами. У синапсов есть 1 параметр,...
1
Выписать из темы Руслан и Людмила 5 предложений обозначить в...
2
В автобусе ехали 10 пассажиров,на остановке вышли 3девочки и...
1
Разрешение структура белка это a) Ренатурацияb) Денатурацияc)...
2
1. Суретке қара. Сурет бойынша диалог құра,...
1
Известно, что ∢4=108°,∢5=18°. Вычисли все углы....
3
А) 7,41 и 0,741; б) 4,02 и 4,002;в) 6,004 и 6,01;г) 20,3 и 28,003;д)...
1
Составьте предложения с глагола и wollen, konnen и mussen по...
3
Расскажите,что вы узнали об озёрах и подземных водах нашего...
1
i:byte;
Begin
read(x);
min:=x;
max:=x;
for i:=2 to 5 do
begin
read(x);
if (x<min) then min:=x
else
if (x>max) then max:=x;
end;
writeln ('Max = ', max,' Min = ', min);
end.