Viết chương trình nhập vào mảng A gồm N số nguyên (N<=200). Đếm và xuất ra màn hình thông báo cho biết trong mảng A có bao nhiêu giá trị khác 0 làm ơn giúp mình với :(((((
Viết chương trình nhập vào mảng A gồm N số nguyên (N<=200). Đếm và xuất ra màn hình thông báo cho biết trong mảng A có bao nhiêu giá trị khác 0 làm ơn
By Daisy
program khac_0;
uses crt;
var A:array[1..200] of integer;
n,i,d:byte;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i]<>0 then d:=d+1;
end;
write(‘Co ‘,d,’ phan tu khac 0 trong mang’);
readln;
end.
var a: array[1..200] of integer;
i, n, d: byte;
Begin
Write(‘n = ‘); readln(n);
D:=0;
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
If a[i]<>0 then inc(d);
End;
Write(‘co ‘, d, ‘ so khac 0’);
Readln
End.