Question

Исходные данные: Дан целлочисленные массв размером М вывести все содержащиеся в данном масиве отрицательного числа в порядке убывания их индексов,а также их количестве

Answer 1

Const m=10;
var a:array[1..m] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to m do begin
 a[i]:=random(21)-10;
 write(a[i],' ');
 end;
writeln;
k:=0;
for i:=m downto 1 do
 if a[i]<0 then begin k:=k+1; write(a[i],' '); end;
writeln;
writeln('k = ',k);
end.

Пример:
4 2 5 -6 0 -10 8 -1 2 -9
-9 -1 -10 -6
k = 4