Задан массив длины n. вывести с новых строк: минимальный четный, делящийся на 3 кол-во элементов, четность которых совпадает с четностью их места найти и вывести число сумма цифр которого наибольшая вывести кол-во пар, у которых левое число четно, а правое нечетно и больше первого паскаль желательно

268

362

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

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

Natalym2001

Информатика

4,4(69 оценок)

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 function sod(x: integer): integer; begin x: =abs(x); result: =0; while x> 0 do begin result+=x mod 10; x: =x div 10 end end; begin var a: =arrrandom(readinteger('n='),1,999); a.println; write('минимальный четный, делящийся на три: '); var b: =a.where(x-> (x mod 3=0) and x.iseven); if b.count> 0 then writeln(b.min) else writeln('не существует'); write('количество элементов с четностью, как у их места: '); writeln(a.where((x,i)-> (x mod 2)=((i+1) mod ); write('число, сумма цифр которого наибольшая: '); var i: =a.select(x-> sod(.indexmax; writeln(a.elementat(i)); write('искомое количество пар: '); writeln(a.pairwise.where(x-> x[0]. iseven and x[1].isodd and (x[1]> ); end. тестовое решение: n= 15 707 351 221 748 296 205 182 714 849 76 281 53 354 46 217 минимальный четный, делящийся на три: 354 количество элементов с четностью, как у их места: 9 число, сумма цифр которого наибольшая: 849 искомое количество пар: 3

Aki1Nozomi

Информатика

4,6(98 оценок)

Не хватает данных: какая формула стоит в c3? если в c1 стоит =a1+b1, тогда в c3, если протянуть, будет стоять =a3+b3, то есть 4+14=18. если стоит другая формула (например, умножить), тогда 56. иное — по вкусу.