Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
<span>HTML (Hyper Text Markup Language) - язык разметки гипертекста :)
</span>
Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.
Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4
Я думаю что 22:45 надеюсь помогла !