kiểm tra học ki 2

[thuha23102000]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

sử dụng biến mảng viết chương 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

 

[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.

 

[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á:

[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]