Владислав
5 год назад
Пожалуйста посчитайте пожалуйста!Информатика,PascalABCЗадание №112157. Минимум и максимум из 5 чиселНапишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.Входные данныеВходная строка содержит 5 целых чисел, разделённых пробелами.Выходные данныеВ первой строке нужно вывести минимальное из введённых чисел, во второй строке – максимальное.Примерывходные данные1 2 3 4 5выходные данные15
ОТВЕТЫ
Пётр
Oct 24, 2020
var
max,min,i,a:integer;
begin
writeln('Введите числа');
max := 0;
for i := 1 to 5 do
begin
read(a);
if(i = 1) then
min :=a;
if(a > max) then
max:= a;
if(a < min) then
min:= a;
end;
Writeln(min);
Writeln(max);
end.
13
