Код для паскаль.
5-9 класс
|
Дана последовательность целых чисел 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<b) and (b<c) then min:=a else
if (b<a) and (b<c) then min:=b else min:=c;
writeln (max-min);
end.
Другие вопросы из категории
ено 40 строк по 60 символов в строке?
Читайте также
Для последовательности целых чисел а, b, c все четные числа разделите на 2. Нечетные оставьте без изменений.
из трех
заданных (не для паскаля)
последовательности чисел 3, 1, 8, 2, 6 все числа больше 5 разделить на 2 а затем удалить из полученной последовательности все чётные чилса ". выполнив указанные в сообщении действия сергей получил код для замка.
тетрадей по цене 11 рублей 30 копеек за штуку. 15 рублей она потратили на мороженое, 17 рублей на пирожное. Сколько денег осталось у Маши после всех покупок? ( нужен программный код, а не решение как в математике!)
урок 24 домашнее задание