Дан массив из 20 целых чисел, заполненный случайными целыми числами из

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

Задать свой вопрос
1 ответ
 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт