Question

viết chương trình nhập vào điểm môn tin của n bạn sử dụng 2 cách

Answer 1

Cách 1

program CTNMT;

uses crt;

var n,i: longint;

A: array [1..1000] of longint;

Begin

Writeln('Hay nhap vao so hoc sinh ban muon nhap diem: ');

Readln(N);

For i:=1 to n do

begin

Writeln('Nhap diem tin cua ban thu ',n);

Readln(A[i]);

end;

Readln;

end.

(Đây chỉ là chương trình nhập vào thôi nha, muốn xuất thì dùng cậu lệnh lặp để xuất từng phần tử của mảng)

Answer 2

Cách 2 bạn có thể thay thế bằng câu lệnh While...do cho câu For...to...do bằng câu lệnh: While i<=N do.........