Giúp em tạo topic hỏi bài tập

[toronto9696]

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

Tên tiêu đề: Bài tập pascal 11

Nội Dung:
Giúp em làm bài tập này với

Lập trình 5 số nguyên bất kỳ
A)In ra màn hình dãy số theo chiều ngang màn hình
B) Tính tổng dãy số trên

 

[11thanhkhoeo]

Tạo topic bạn tự tìm hiểu

Mình sẽ trả lời giúp bạn câu hỏi

  uses crt;
      var a:array[1..5]  of integer; 
       i , s : integer;
      begin 
              for i:= 1 to 5 do 
                   begin 
                       write (' nhap phan tu thu', i,'   =');
                        readln(a[i]);
                          s:= s+ a[i];
                   end;
               for i :=1 to 5 do 
                     write(a[i]:5);
              write('  tong= ', s );
             readln;
end.

Thân

Chúc bạn học tốt môn này