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

Question

Информатика

Ефросинья

6 октября, 19:43

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

+2

Ответы (1)

Знаете ответ?

Радана · Answer 1

Var i, maxk, maxd, r:integer;

a:array[1 ... 30] of integer;

begin

for i:=1 to 30 do

a[i]:=random (100) ;

maxk:=0;

maxd:=0;

for i:=1 to 30 do

begin

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

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

end;

r:=maxk-maxd;

writeln (r) ;

end.