Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương
Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương
By Allison
By Allison
Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương
Sử dụng biến mảng viết trình nhập vào N số nguyên từ bàn phím.sau đó đếm xem trong mảng có bao nhiêu phần tử dương
program CTNMT;
uses crt;
var n,i,dem: longint;
A: array [1..1000] of longint;
Begin
Writeln(‘Ban hay N’); Readln(n);
for i:=1 to n do
begin
Writeln(‘Nhap so thu ‘,i); Readln(a[i]);
end;
Writeln(‘In ra mang:’);
for i:1 to n do Write(a[i]:5);
writeln;
Writeln(‘In ra so chan trong mang’);
for i:= 1 to n do
begin
if (a[i] mod 2) = 0 then Write(a[i]:5)
if a[i] < 0 then dem:= dem +1;
end;
writeln(‘so so nguyen am la: ‘,đem);
REadln;
var a: array[1..256] of integer;
n, i, 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 d:=d+1;
End;
Write(‘co ‘, d, ‘ so duong’);
Readln
End.