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

0 голосов
54 просмотров

Напишите программу вычисления разности максимального среди элементов, имеющих чётные значения, и максимального среди элементов, имеющих нечётные значения, в заданном целочисленном массиве из 10 положительных элементов (в предположении, что в массиве есть и чётные, и нечётные элементы)(Питон)


Информатика (33 баллов) | 54 просмотров
Дан 1 ответ
0 голосов

Program abc;
var a,b,c,min,max,s:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if aif cb then max:=a else max:=b;
if c>max then max:=c;
s:=min+max;
write('Сумма большего и меньшего из чисел ',a,', ',b,', ',c,' = ',s);
end.

(52 баллов)