Регистрация
katyamarkova22
17.10.2021 07:16
Информатика
Есть ответ 👍

Найти число пар соседних элементов массива, оканчивающихся нулем в pascal abc

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

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

Даниилfire
Даниилfire
4,8(14 оценок)
Var a: array [1..10] of integer; i, s: integer; begin for i: =1 to 10 do begin a[i]: =random(36)+10; writeln('a[', i, '] = ', a[i]); end; for i: =2 to 10 do if (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s: =s+1; writeln('число соседних четных пар: ', s); end.
масяня194
масяня194
4,4(72 оценок)
Var a,b,i: integer; begin a: =0; for i : = 10 to 99 do      if (i mod 10=6)  or  (i mod 100 div 10 =6)  then   inc(a);   writeln(a);   readln; end.

Популярно: Информатика