Составьте программу, которая вводит с клавиатуры массив из 7 целочисленных элементов и находит количество элементов, которые больше своего соседа слева
Составьте программу, которая вводит с клавиатуры массив из 7 целочисленных элементов и находит количество элементов, которые больше своего соседа слева
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
rt1: array [1..10] of integer;
rt2,rt3: integer;
begin
rt3:=0;
Randomize;
for rt2 := 1 to 10 do
begin
rt1[rt2] := 1 + random(10);
writeln(rt1[rt2]);
if (rt2 >= 2) and (rt1[rt2] > rt1[rt2 - 1]) then
rt3 := rt3 + 1;
end;
writeln('количество элементов, которые больше своего соседа слева = ', rt3);
end.