Viết chương trình sử dụng chương trình con.
Nhập dãy số nguyên gồm n phần tử:
tính a,tổng các số nguyên
b tính các số chẵn
c giá trị lớn nhất trong dãy là
Quảng cáo
2 câu trả lời 279
```
program main;
const
MAX = 100;
type
arr = array[1…MAX] of integer;
var
a, b, c, max: integer;
n: integer;
arr1: arr;
procedure input(var arr1: arr; var n: integer);
var
i: integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
writeln('Nhap day so:');
for i := 1 to n do
begin
readln(arr1[i]);
end;
end;
function calculate_a(arr1: arr; n: integer): integer;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to n do
begin
sum := sum + arr1[i];
end;
calculate_a := sum div n;
end;
function calculate_b(arr1: arr; n: integer): integer;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to n do
begin
sum := sum + arr1[i];
end;
calculate_b := sum;
end;
procedure calculate_c(arr1: arr; n: integer; var c: integer);
var
i: integer;
begin
c := 0;
for i := 1 to n do
begin
if arr1[i] mod 2 = 0 then
begin
c := c + 1;
writeln('So chan thu ', c, ': ', arr1[i]);
end;
end;
end;
function find_max(arr1: arr; n: integer): integer;
var
i: integer;
begin
max := arr1[1];
for i := 2 to n do
begin
if arr1[i] > max then
begin
max := arr1[i];
end;
end;
find_max := max;
end;
begin
input(arr1, n);
a := calculate_a(arr1, n);
writeln('Gia tri a: ', a);
b := calculate_b(arr1, n);
writeln('Tong cac so nguyen trong day: ', b);
writeln('Cac so chan trong day:');
calculate_c(arr1, n, c);
max := find_max(arr1, n);
writeln('Gia tri lon nhat trong day: ', max);
end.
```
Quảng cáo
Câu hỏi hot cùng chủ đề
-
3001
Bài viết mới nhất Lớp 11
-
2 năm trước2920
-
2 năm trước2883
