Паскаль. Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, чт...
Паскаль. Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечетные элементы).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы