Дан список чисел. Выведите все элементы списка, которые больше предыдущего элемента. Входные данные Вводится список чисел. Все числа списка находятся на одной строке. Выходные данные Выведите ответ на задачу. Примеры входные данные 1 5 2 4 3 выходные данные 5 4
More Questions From This User See All
Answers & Comments
var a: array[1..n] of integer;
i: integer;
begin
randomize;
writeln('список:');
for i:=1 to n do
begin
a[i]:=random(-20,20);
write(a[i],' ');
end;
writeln;
for i:=2 to n do
if a[i]>a[i-1] then write(a[i]:4);
end.
список:
-20 -20 -14 -18 20 12 -2 -6 -13 15
-14 20 15
Если ввод с клавиатуры:
var a: array of integer;
i,n: integer;
begin
write('n = '); readln(n);
setlength(a,n+1);
for i:=1 to n do read(a[i]);
for i:=2 to n do
if a[i]>a[i-1] then write(a[i],' ');
end.
var a:=s.ToIntegers;
var n:=a.Length;
for i:=1 to n-1 do
if a[i]>a[i-1] then write(a[i],' ');
for var i:=1 to b.Length-1 do
if b[i]>b[i-1] then write(b[i],' '); Упражняться можно долго.