Код для паскаль.Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.
Код для паскаль.
Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.
Гость
Ответ(ы) на вопрос:
Гость
program pin;
var
i, j, cm: Integer;
povtor: Boolean;
const
m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2);
begin
cm := 0;
for i := 1 to 10 do
begin
povtor := False;
Гостьvar a,b,c:integer;
max,min:integer;
begin
readln (a,b,c):
if (a>b) and (b>c) then max:=a else
if (b>a) and (a>c) then max:=b else max:=c;
if (a
Не нашли ответ?
Похожие вопросы