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 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.
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.
