50 pascal дан массив целых чисел состоящий из n элементов. найти сумму элементов имеющие нечетные индексы. посчитать кол-во элементов массива значение которых больше заданных а и кратных 5

280

326

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

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

bullet699

Информатика

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

// pascalabc.net 3.1, сборка 1179 от 29.02.2016 begin var a: =arrrandom(readinteger('n='),1,99); a.println; var m: =readinteger('a='); writeln('сумма с нечетнми номерами: ', a.where((x,i)-> i mod 2=0).sum); writeln('количество больших ',m,' и кратных 5: ', a.where(x-> (x> m) and (x mod 5=) end. тестовое решение: n= 15 60 51 74 17 45 27 83 61 47 79 81 20 39 61 32 a= 28 сумма с нечетнми номерами: 461 количество больших 28 и кратных 5: 2

rahimzhan20p0dqkg

Информатика

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

Const n = 10; var b: array[1..n] of integer; summ, k, a: integer; begin readln(a); summ: =0; k: =0; for i: =1 to n do begin readln(b[i]); if (b[i] > a) and (b[i] mod 5 = 0) then k: =k+1; if i mod 2 < > 0 then summ: =summ+ b[i]; end; writeln('summ = ', summ); writeln(k); end.