Регистрация
22a03a1989
01.05.2020 17:44
Информатика
Есть ответ 👍

Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. (

146
398
Посмотреть ответы 2

Ответы на вопрос:

Сашуньк
Сашуньк
4,4(20 оценок)
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.
nata1116
nata1116
4,4(94 оценок)
Var a: real; b: real; summa: real; begin writeln('введите два числа '); readln(a,b); summa: = a+b; writeln('сумма' ,summa, '! '); readln; end.

Популярно: Информатика