Question

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

Answer 1

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.

Answer 2

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/