Câu 1: Viết chương trình tính tổng các số chẵn dãy n số nguyên với n được nhập từ bàn phím Câu 2: 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 và điểm kiểm tra được nhập từ bàn phiếm( sử dụng biến mảng).
2 câu trả lời
câu 1:
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
s:=0;
for i:=1 to n do
if A[i] mod 2=0 then s:=s+A[i];
writeln('tong la:',s);
readln
end.
câu 2:
program ct;
uses crt;
var i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap diem n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
writeln('diem tin cua hoc sinh la');
for i:=1 to n do
write(A[i],' ');
readln
end.
Câu 1 :
uses crt;
var a : array [1 .. 100] of integer;
i, n, s: integer;
begin
clrscr;
s := 0;
write('Nhap so n : '); readln(n);
write('Nhap day gom ', n ,' so : ');
for i := 1 to n do begin read(a[i]);
if a[i] mod 2 = 0 then s := s + a[i]; end;
write('Tong cac so chan : ', s);
readln
end.
Câu 2 :
uses crt;
var a : array [1 .. 100] of real;
i, n : integer;
begin
clrscr;
write('Nhap so HS : '); readln(N);
write('Nhap diem cua ', N ,' HS : ');
for i := 1 to n do read(a[i]);
write('Diem cua ', n ,' HS : ');
for i := 1 to n do write(a[i] : 2 : 1,' ');
readln
end.