Исходные данные: дан целлочисленные массв размером м вывести все содержащиеся в данном масиве отрицательного числа в порядке убывания их индексов,а также их количестве
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.
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
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