kiểm tra học ki 2

H

harry9xsakura

program kiemtra;
uses crt;
var n,i,m,j:longint;
begin clrscr;
writeln('nhap so n');
readln(n);
for i:=1 to n do
begin
writeln('nhap so ');
readln(m);
if m>0 then inc(j);
end;
writeln('so phan tu duong la ',j);
readln;
end.
 
M

megamanxza

Theo mình thấy, nếu bạn harry9xsakura dùng cách đó, công việc đề bài cho vẫn đuợc đáp ứng nhưng sẽ không đúng yêu cầu nó đưa ra: DÙNG BIẾN MẢNG!
Cho phép mình sửa đôi chút nhá: ;)
Mã:
[COLOR="Blue"][B]Uses crt;
var a: array [1..100] of integer;
      i, n, dem: integer;
begin
clrscr;
write ('Nhap so luong phan tu mang: '); readln (n);
for i:= 1 to n do
  begin
    write ('Nhap phan tu thu ',i,': '); readln (a[i]);
    if a[i]>0 then inc(dem);
  end;
write ('Mang nay co ',dem,' phan tu duong!');
readln
end.[/B][/COLOR]
 
Top Bottom