Tin học lớp 11
Bài tập phần kiểu mảng (có đáp án)
Bài 11: Kiểu mảng
Bài 1: Cho dãy số thực không quá 200. Tính tổng các số chẵn. Đưa ra màn hình kết quả.
Bài làm
Program dayso;
Uses crt;
Type ArrInt = array[1..200] of real;
Var
A: ArrInt;
Begin
Clrscr;
Writeln(‘Nhap so luong phan tu: N= ‘);
Readln(N);
For i:= 1 to N do
Begin
Write (‘ Nhap phan tu thu,’i’, : ‘);
Readln(A[i]);
End;
S:=0;
For i:= 1 to N do
If A[i] mod s=0 then
Tong : = tong + A[i];
Write (‘Tong= ‘, tong
: 8 : 2);
Readln;
End.
Bài 2: Cho dãy số nguyên không quá 250 kí tự. Giá trị tuyệt đối không quá 100. Tính tổng các phần tử
dương và phần tử âm. Đưa ra màn hình kết quả.
Bài làm
Program baitap2;
Uses crt;
Type ArrInt= array[1..250] of integer;
Var
N, i, tong am, tong duong: interger;
A: ArrInt;
Begin
Clrscr;
Write (‘nhap so luong phan tu cua mang’);
Readln(N);
For i := 1 to N do;
Begin
Write(‘nhap phan tu ‘,i,’ cua mang khon qua 100’);
Readln(A[i]);
End;
Tong am:= 0;
Tong duong := 0;
For i:=1 to N do;
If A[i] > 0 then tong duong: = tong duong + A[i];
For i:= 1 to N do;
If A[i] <0 then tong am: = tong am + A[i];
Write (‘tong am = ‘,tong am);
Write (‘tong duong =’,tong duong);
Readln;
End.