Задание:
Напишите програму нахождения суммы большого и меньшего из 3 чисел.
Решение:
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;
Знаете другой ответ?