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.

<u>Тестовое решение:</u>
Элементы массива
   5 -9 -32 -48 33   2 -41 24 31 -31 -48 -24 -17 45 -41 -23 -1 38 45 14
Последний отрицательный элемент x[17]=-1

0 0

4 года назад

Прочитать ещё 2 ответа

ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ var x1, y1, x2, y2, r1, r2: real; begin write('Введите координаты первой и вто

АлексейР1

Определите, какая из двух точек A и B находится ближе к началу координат.

Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.

0 0

1 год назад

Прочитать ещё 2 ответа