Дан массив из 20 целых чисел, заполненный случайными целыми числами из интервала от [-100 до 100]. найти количество элементов массива, у которых сумма двух соседних элементов четная. данный массив вывести в строчку.

172

323

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

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

mihscka0605

Информатика

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

var a: array[1..20]of integer; i,k,z: integer; begin randomize; for i: = 1 to 20 do begin a[i]: = random(200)-100; write(a[i],' '); end; writeln; for i: = 2 to 20 do begin k: = (a[i-1]+ a[i]); if k mod 2 = 0 then begin z: = z +1; write(a[i-1]: 6, a[i]: 3); end; end; writeln; write(z); end.