Question

viết chương trình nhập điểm kiểm tra trong học kì 1 của bạn A và in ra màn hình tbm kết quả xếp loại biết môn tin học gồm 2 điểm hệ số 1, 1 điểm hệ số 2, 1 điểm hệ số 3

Answer 1

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

n:=4;

for i:=1 to n do readln(a[i]);

t:=t+a[1]+a[2]+a[3]*2+a[4]*3;

writeln(t/7:4:2);

readln;

end.