Câu 1: Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng:
Tình tổng các số tự nhiên từ 100 đến 1000(vòng lặp với số lần lặp chưa biết)
Program tinh_tong;
Var i S: Integer;
Begin
i: 100;
S = 0;
While i>1000 do
S:=S+i
i:=i+1;
Writeln(' Tong cac so tu nhien tu 100 den 1000 la:',S); Readln
End.
Câu 2:Viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng...
Đọc tiếp
Câu 1: Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng:
Tình tổng các số tự nhiên từ 100 đến 1000(vòng lặp với số lần lặp chưa biết)
Program tinh_tong;
Var i S: Integer;
Begin
i: 100;
S = 0;
While i>1000 do
S:=S+i
i:=i+1;
Writeln(' Tong cac so tu nhien tu 100 den 1000 la:',S); Readln
End.
Câu 2:Viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng
1/
Program tinh_tong;
Var i, S: Integer;
Begin
i:= 100;
S: = 0;
While i <=1000 do
S:= S + i;
i:= i + 1;
Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln;
End.
2/
Uses crt;
var a: array [1..100] of integer;
n, i, s: integer;
tb: real;
begin
clrscr;
write ('Nhap so luong phan tu: ');
readln (n);
for i:= 1 to n do readln (a[i]);
s:=s+a[i];
tb:=s/n;
writeln ('Gia tri trung binh cong cua mang la ',tb);
write ('Cac phan tu nho hon gia tri trung binh cong: ');
for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln
end.
1/