Дан список чисел. выведите все элементы списка, которые больше предыдущего элемента. входные данные вводится список чисел. все числа списка находятся на одной строке. выходные данные выведите ответ на . примеры входные данные 1 5 2 4 3 выходные данные 5 4

280

483

Посмотреть ответы 3

Ответы на вопрос:

Beaargleb

Информатика

4,8(27 оценок)

Составим алгоритм отбора чисел, удовлетворяющих условию . в "списке" выделяются пары соседних элементов и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. если превышает, второй элемент значение второго элемента передается на выход. для списка из n элементов процесс повторятся n-1 раз. в условии есть один неприятный момент. количество элементов в списке нигде не указано. пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими списками, а вот pascalabc.net 3.3 может, поэтому используем его. // pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin readlnstring.tointegers.pairwise.where(t-> t[1]> t[0]).select(t-> t[1]).println end. результат 1 5 2 4 3 5 4

Denchik15070

Информатика

4,7(20 оценок)

Const n=10; 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.

AndrewDremin

Информатика

4,5(92 оценок)

Var n,s,s3: integer; begin write('n = '); readln(n); for n: = 1 to n do begin s: =s+n; if n mod 3 = 0 then s3: =s3+n; end; writeln('сумма чисел [1..',n,'], кратных трём: ',s3); writeln('сумма всех чисел [1..',n,']: ',s); end.