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

Ответы:

Даня Крысов

02-03-2014 02:59

Var A:array[1..20]of integer; i,K,Z:integer;BeginRandomize;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.

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив из 20 целых чисел, заполненный случайными целыми числами из интервала от [-100 до 100]. Найти количество элементов массива, у которых сумма двух соседних элементов четная. Данный массив вывести в строчку. (Срочно!)» от пользователя Евгений Исаенко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!