BÀI TẬP KIỂU MẢNG | Tin Học Pascal lớp 11

ĐỀ BÀI: Viết chương trình nhập một mảng các số nguyên, sau đó xuất ra tổng và tích của tất cả các số trong mảng trên.

GỢI Ý:

Input: các số nguyên.
Output: tổng và tích.

BÀI LÀM:

program
uses crt;
var    dayso: array [1..100] of integer;
         tong, tich, i, N: integer;
begin
        clrscr;
        writeln('Nhap so luong phan tu cua day so nguyen:')
        readln(N);
        for i:=1 to N do
        begin
                 writeln('Nhap gia tri cho so thu ',i,' :');
                 readln(day so[i]);
        end;
        tong:= 0;
        tich:= 1;
        for i:=1 to N do
        begin
                 tong:= tong + dayso[i];
                 tich:= tich * 1;
        end;
        writeln('Tong la: ',tong);
        writeln('Tich la: ',tich);
        readln
end.