Tin học Pascal Viết phương trình và đếm

K

khai221050

uses crt;
var n: integer;
A: array[1..30]of integer
begin
clrscr;
writeln('Hay nhap cac so trong day')
for i:=1 to 30 do
if A>=0 then n:=n+1;
writeln('So so nguyen duong:',n);
readln
end
 
You must log in or register to reply here.
Top Bottom