Взаданном одномерном массиве определить номер последнего отрицательного элемента.паскаль

260

422

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

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

Uncleuncle1

Информатика

4,4(74 оценок)

Const n = 20; var x: array[1..n] of integer; i: integer; begin randomize; writeln('элементы массива'); i : = n; for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 4); end; writeln; while (i > = 1) and (x[i] > = 0) do i : = i - 1; if i > 0 then writeln('последний отрицательный элемент x[', i, ']=', x[i]) else writeln('нет отрицательных элементов') end. тестовое решение: элементы массива 5 -9 -32 -48 33 2 -41 24 31 -31 -48 -24 -17 45 -41 -23 -1 38 45 14 последний отрицательный элемент x[17]=-1

grimm330066Flippoo

Информатика

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

Var a: array[1..10000] of longint; i,n,last: longint; begin {считываем массив} read(n); for i: =1 to n do read(a[i]); last : = 0; for i : = 1 to n do if a[i] < 0 then last : = i; if last = 0 then write('отрицательных нету') else write('последний отрицательный - ', i); end.