Viết chương trình nhập điểm kiểm tra học kì môn tin cho n học sinh và in ra màn hình .với n điểm kiểm tra được nhập từ bàn phím( sử dụng biến mảng)
Viết chương trình nhập điểm kiểm tra học kì môn tin cho n học sinh và in ra màn hình .với n điểm kiểm tra được nhập từ bàn phím( sử dụng biến mảng)
Dễ mà nhưng cách tui hơi dài
Đáp án :
Var
a:array[1..100] of integer;
N,i,diemtin:interger;
Begin
Writeln(‘Nhap so hoc sinh ‘);
Readln(n);
For i:=1 to n do
Begin
Writeln(‘ Nhập điểm học sinh thứ ‘,i);
Readln(a[i]);
End;
For i:=1 to n do
Writeln(‘ Điểm học sinh ‘,i,’ la :’, a[i]);
Readln;
End.
Cơ bản là vậy có thể trình bày theo cách khác
program ct;
uses crt;
var i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap so hoc sinh:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’); readln(A[i]);
end;
writeln(‘so diem vua moi nhap la’);
for i:=1 to n do
write(A[i],’ ‘);
readln
end.