Tin học Lập trình pascal (cần gấp)

[Furrin]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho dãy n số nguyên. Viết chương trình tìm số các số không âm của dãy, biết nếu 1 số được lặp lại nhiều lần thì chỉ tính là 1 số
VD: Dãy -2 , -3, 1, 3, 1, 0, 4, 5,1 => Có 5 số không âm (số 1 được lặp lại 3 lần chỉ tính là 1 số)
Cảm ơn nhiều nhiều lắm

 

[Furrin]

bạn nào giúp mk vs (. Lập trình bằng mảng 1 chiều

 

[Furrin]

cầu giúp đỡ !!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[ka1412]

@Furrin Của bạn đây:

uses crt;
var a,b:array[1..100] of integer;
n,i,j,k:integer;
kt:boolean;
begin
    write('Nhap n:');readln(n);
    for i:=1 to n do
    begin
        write('a[',i,']:');readln(a[i]);
    end;
    for i:=1 to n do
    begin
        if a[i]<0 then continue;
        kt := false;
        if a[i]>=0 then
        begin
            for j := 1 to k do if b[j]=a[i] then begin kt:=true;break end;
            if kt=true then continue;
            inc(k);
            b[k]:=a[i];
        end;
    end;
    write('Co ',k,' so khong am');
    readln
end.