Question

Дан массив вещественных чисел . Найти номера и значения всех отрицательных элементов в массива . Если таких элементов в массиве нет , то должна быть напечатано соответствующее сообщение.

Answer 1

Var   n, i: integer;  mas,a,b: array[1..1000] of real;
begin  writeln('Кол-во элементов массива');  readln(n);  for i := 1 to n do    read(mas[i]);  for i := 1 to n do    if mas[i] < 0 then    begin      a[i] := mas[i];      b[i] := i;    end;    writeln;    for i:=1 to n do    if mas[i] < 0 then    writeln(a[i],' ',b[i]);end.