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


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

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

Решение.

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 begin

if (a[i] mod 2=0) and (a[i]>=max1) then max1:=a[i];

if (a[i] mod 2<>0) and (a[i]>=max2) then max2:=a[i]

end;

write('Raznost= ',max1─max2);

End.

Спрятать решение · · Видеокурс ·
Гость 08.02.2014 16:06

А разве не надо перед нахождением максимумов ввести элементы массива? Что-то вроде For i := 1 to N do Readln(a[i]);

Константин Лавров

В задаче сказано: "в за­дан­ном це­ло­чис­лен­ном мас­си­ве". Значит писать ввод массива не обязательно.