Задания
Версия для печати и копирования в MS WordОпишите на русском языке или одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих чётные значения, и максимального среди элементов, имеющих нечётные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и чётные, и нечётные элементы).
Решение.
Спрятать критерииКод:
program C2;
uses crt;
const N=30;
var a:array[1..N] of integer;
i,max1,max2:integer;
Begin
for i:=1 to n do
readln(a[i]);
max1:=0;
max2:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]> max1) then max1:=a[i]
else
if a[i] mod 2<>0 then
if a[i]>max2 then max2:=a[i];
write('Raznost= ',max1-max2);
End.

