Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khánh Nguyễn

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.

Khánh Huy
11 tháng 5 2018 lúc 12:20

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.

Khánh Huy
11 tháng 5 2018 lúc 12:31
https://i.imgur.com/mb8oHnN.png

Các câu hỏi tương tự
Nguyễn Khánh Huy
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
duyy
Xem chi tiết
Nhân lê
Xem chi tiết
Hoài Right
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Jeri James
Xem chi tiết
Tùng Bùi
Xem chi tiết