Дан массив размера N. Найти номера тех элементов массива, которые больше своего ...

July 2022 1 2 Report

Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

Answers & Comments

nikolac uses crt;
var i,n,count:integer;
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
writeln('Номера элементов:');
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
write(i,' ');
count:=count+1;
end;
writeln(#13#10,'Всего элементов:',#13#10,count);
end.

2 votes Thanks 6

Answers & Comments

vypolnit polnyj sintaksicheskij razbor predlozheniya ne mozhet byt chtoby pri mys

napechatat chisla sleduyushim obrazom v pascal21 19220 18210 8

dano naturalnoe chislo najti summu ego chetnyh delitelejpascal

рекомендуемые вопросы

Helpful Links

Helpful Social