Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Yeu DUong nhat

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)? Tính tổng và đếm các số dương có trong dãy số? In kết quả ra màn hình

Minh Lệ
17 tháng 5 2021 lúc 21:57

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:22

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.


Các câu hỏi tương tự
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Minh Ngọc
Xem chi tiết
Tuấn Trần thị
Xem chi tiết