Задания
Версия для печати и копирования в 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.
А разве не надо перед нахождением максимумов ввести элементы массива? Что-то вроде For i := 1 to N do Readln(a[i]);
В задаче сказано: "в заданном целочисленном массиве". Значит писать ввод массива не обязательно.