Нужно решить 2 задачи по информатике: 1) дан массив B[1..10] составьте программу которая находит количество элементов, которые больше своего соседа слева 2) дан массив B[1..10] составьте программу которая находит количество па...
Нужно решить 2 задачи по информатике:
1) дан массив B[1..10] составьте программу которая находит количество элементов, которые больше своего соседа слева
2) дан массив B[1..10] составьте программу которая находит количество пар элементов с четным значением
Гость
Ответ(ы) на вопрос:
ГостьВот решение первой задачки:
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]0 then Writeln('Col =', Col)
else WriteLn('None!');
ReadLn;
end.
Не нашли ответ?
Похожие вопросы