Напишите програму нахождения суммы большого и меньшего из 3 чисел

Question

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

Answer 1

56

seamir

16 марта 2023

program sum; uses crt; var a: array[1… 3] of real; max, min: real; buf: string; begin clrscr; writeln ('Программа, определяющая сумму из мин. И макс. Из 3 х введенных чисел.'); for i: =1 to 3 do begin writeln ('Введите '+IntToStr (i)+' число: '); readln (buf); {I+} a[i]: =StrToFloat (buf); {I-}end; min: =a[1]; max: =a[1]; for i: =2 to 3 do begin if a[i] < min then min: =a [i]; if a[i] > max then max: =a[i]; end; write ('Сумма мин. И макс. Числа: ' FloatToStr (min+max); end;

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: