Tin học Viết chương trình

[Minnhkhang]

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

Viết chương trình nhập dãy n số nguyên. Đếm có bao nhiêu số nguyên âm; tính tổng các số nguyên âm trong dãy số đó (viết tiếp theo chương trình sẵn có)
Program day_so;
Var n,i,dem: integer; S: longint;
a: array[1..100] of integer;
Begin
S:=0;
Write('nhap n=:'); readln(n);
For i:=1 to n do
Begin
Write('a[',i,']='); readln(a);
End;
...................
{ hoàn thành đoạn chương trình còn lại bằng cách sử dụng If ... then lồng bên trong vòng lặp For...do}

 

[Minh Tín]

Viết chương trình nhập dãy n số nguyên. Đếm có bao nhiêu số nguyên âm; tính tổng các số nguyên âm trong dãy số đó (viết tiếp theo chương trình sẵn có)
Program day_so;
Var n,i,dem: integer; S: longint;
a: array[1..100] of integer;
Begin
S:=0;
Write('nhap n=:'); readln(n);
For i:=1 to n do
Begin
Write('a[',i,']='); readln(a);
End;
...................
{ hoàn thành đoạn chương trình còn lại bằng cách sử dụng If ... then lồng bên trong vòng lặp For...do}

Program day_so;
Var n,i,dem: integer; S: longint;
       a: array[1..100] of integer;
Begin
   S:=0;
   Write('nhap n=:'); readln(n);
   For i:=1 to n do
   Begin
           Write('a[',i,']='); readln(a);
    End;
 dem:=0;
  for i:=1 to n do if a[i] < 0 then begin
     dem:=dem+1;
     S:=S+a[i];
 end;
writeln('Co ',dem,' so nguyen am trong day so.');
writeln('Tong cac so nguyen am do la:',S);
readln
 end.

 

[Minnhkhang]

Program day_so;
Var n,i,dem: integer; S: longint;
       a: array[1..100] of integer;
Begin
   S:=0;
   Write('nhap n=:'); readln(n);
   For i:=1 to n do
   Begin
           Write('a[',i,']='); readln(a);
    End;
 dem:=0;
  for i:=1 to n do if a[i] < 0 then begin
     dem:=dem+1;
     S:=S+a[i];
 end;
writeln('Co ',dem,' so nguyen am trong day so.');
writeln('Tong cac so nguyen am do la:',S);
readln
 end.

nếu đề bài cho là nguyên dương thì mình viết như này đúng không bạn?
for i:=1 to n do if a > 0 then begin
dem:=dem-1;
S:=S-a;

 

[Minh Tín]

nếu đề bài cho là nguyên dương thì mình viết như này đúng không bạn?
for i:=1 to n do if a > 0 then begin
dem:=dem-1;
S:=S-a;

Bạn ơi, đếm số nguyên dương và tính tổng số nguyên dương thì chỉ cần đổi điều kiện này:

a[i]<0

thành như sau:

a[i]>0

.
Còn lại vẫn giữ nguyên.