Заполните массив случайными числами в [0,1000] и вычислите разность максимального среди элементов, имеющих чётные значения, и максимального среди элементов, имею- щих нечётные значения, в заданном целочисленном массиве из 30 положительных эле- ментов (в предположении, что в массиве есть и чётные, и нечётные элементы)

296

433

Посмотреть ответы 3

Ответы на вопрос:

dashabar1208

Информатика

4,8(59 оценок)

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 //внимание! если программа не работает, обновите версию! begin writeln('исходный массив: '); var a: =arrrandom(30,0,1000).println(); writeln('разность: ',a.where(x-> x mod 2=0)..where(x-> x mod 2< > 0).; end.

inkara8

Информатика

4,7(67 оценок)

Var a: array[1..30] of integer; i,mc,mn: integer; begin for i : = 1 to 30 do begin a[i]: =random(1001); if a[i] mod 2 = 0 then mc: =a[i] else mn: =a[i]; write(a[i],' '); end; writeln; for i: = 1 to 30 do if (mc< a[i])and(a[i] mod 2 = 0) then mc: =a[i] else if (mn< a[i])and(a[i] mod 2 < > 0) then mn: =a[i]; writeln(mc,' - ',mn,' = ',mc-mn); end.

20031003veronika

Информатика

4,5(85 оценок)

Ошибки нет. в условном операторе после if пишется < условие> (в данном случае "x=100"), а после then - < оператор> (в данном примере это оператор присваивания "y: =x*x; ")