Câu 1: Viết chương trình nhập và in ra n phần tử kiểu số nguyên được nhập từ bàn phím. Tính tổng các phần tử. Dùng cả 2 dạng While...do và For...do?
Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:
+ In mảng vừa nhập ra màn hình.
+ Tính tổng các phần tử.
+ In ra phần tử lớn nhất.
+In ra phần tử nhỏ nhất.
Câu 1:
Cách 1: While...do
Program tinh_tong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
clrscr;
write('Nhap n:=');readln(n);
s:=0;i:=1;
while i<=n do
begin
writeln(i);
s:=s+i;
i:=i+1;
end;
writeln('gia tri tong:=',s);
readln;
End.
Cách 2:For...do
Program tinh_tong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
For i:=1 to n do s:=s+i;
writeln('Gia tri tong:=',s);
readln;
End.
