Нужно решить 2 по информатике: 1) дан массив b[1..10] составьте программу которая находит количество элементов, которые больше своего соседа слева 2) дан массив b[1..10] составьте программу которая находит количество пар элементов с четным значением

124

142

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

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

fcnhff7

Информатика

4,5(89 оценок)

Вот решение первой : program sosed; uses crt; const n = 10; type vec = array [1..n] of integer; var a: vec; i, col: integer; begin clrscr; randomize; writeln('massiv a: '); for i: =1 to n do begin a[i]: = 10+random (90); write (a[i]: 4); end; writeln; col: =0; for i: =2 to n do begin if a[i]< a[i-1] then col: =col+1; end; writeln; if col< > 0 then writeln('col =', col) else writeln('none! '); readln; end.