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

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

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.

Thuyết Dương
23 tháng 6 2018 lúc 15:20

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.

program mang;

uses crt;

var : tong,n,i,max,min:integer;

a:array[1..100] of integer;

begin

clrscr;

tong:=0;

write('Nhap so phan tu:');readln(n);

for i:=1 to n do begin

write('Nhap phan tu thu ',i,':');readln(a[i]);

tong:= tong+a[i];

end;

max:=a[1]; min:=a[i];

for i:=2 to n do begin

if a[i] > max then max:=a[i];

if a[i]<min then min :=a[i];

end;

writeln('Tong cua day so la:',tong);

writeln('Phan tu lon nhat la:',max);

writeln('Phan tu nho nhat la:',min);

readln

end.

write(' Diem trung binh cua ',n,' mon hoc la:',tb);

readln

end.

Thuyết Dương
23 tháng 6 2018 lúc 15:21

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.

program mang;

uses crt;

var : tong,n,i,max,min:integer;

a:array[1..100] of integer;

begin

clrscr;

tong:=0;

write('Nhap so phan tu:');readln(n);

for i:=1 to n do begin

write('Nhap phan tu thu ',i,':');readln(a[i]);

tong:= tong+a[i];

end;

max:=a[1]; min:=a[i];

for i:=2 to n do begin

if a[i] > max then max:=a[i];

if a[i]<min then min :=a[i];

end;

writeln('Tong cua day so la:',tong);

writeln('Phan tu lon nhat la:',max);

writeln('Phan tu nho nhat la:',min);

readln

end.


Các câu hỏi tương tự
Khánh Nguyễn
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