СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости


Задания
Версия для печати и копирования в MS Word
Задание 25 № 2926

Опишите на русском языке или одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих чётные значения, и максимального среди элементов, имеющих нечётные значения, в заданном целочисленном массиве из 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.