Question

1 .Viết chương trình in ra điểm kiểm tra 1 tiết môn Toán của 45 bạn lớp 8A
2 .Viết chương trình tính tổng của mảng gồm 50 phần tử

Answer 1

1:

uses crt;

var a:array[1..45]of real;

i:integer;

begin

clrscr;

for i:=1 to 45 do

begin

write('Diem cua ban thu ',i,'='); readln(a[i]);

end;

for i:=1 to 45 do

write(a[i]:4:2,' ');

readln;

end.

2:

uses crt;

var a:array[1..50]of real;

t:real;

i:integer;

begin

clrscr;

for i:=1 to 50 do

begin

write('a[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to 50 do

t:=t+a[i];

writeln('Tong cua mang la: ',t:4:2);

readln;

end.