Help me lẹ !!!!!
Viết chương trình thực hiện các công việc sau:
a. Nhập dãy số nguyên gồm 100 số
b. Hiển thị dãy số ra màn hình
c. Hiển thị các số dương trong dãy
Help me lẹ !!!!! Viết chương trình thực hiện các công việc sau: a. Nhập dãy số nguyên gồm 100 số b. Hiển thị dãy số ra màn hình c. Hiển thị các số dươ
By Liliana
uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
repeat
write(‘Nhap n=’); readln(n);
until (0<n) and (n<=100);
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln(dem);
readln;
end.
sai thì thôi nhé
vote 5 sao nhó
program bai_giai;
uses crt;
var A:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
write(‘b. ‘);
for i:=1 to 100 do write(A[i],’ ‘);
write(‘c. ‘);
for i:=1 to 100 do
if A[i]>0 then write(A[i],’ ‘);
readln;
end.