Viết chương trình:
a) khai báo kiểu mảng m chứa 15 phần tử kiểu integer.
b) nhập dữ liệu cho mảng m từ bàn phím.
c) tính và in ra màn hình trung bình cộng của các số dương.
d) tính và in ra màn hình tổng của các số nguyên dương là chính phương.
Ai giúp mik với mik đang cần
var m: array[1..15] of integer;
index: byte;
sum: integer;
function isChinhPhuong( number: integer ): boolean;
begin
isChinhPhuong := number = (sqr(sqrt(number) div 1));
end;
Begin
(* b *)
for index := 1 to length(m) do
readln(m[index]);
(* /b *)
(* c *)
sum := 0;
for index := 1 to length(m) do
if m[index] > 0 then
sum := sum + m[index];
writeln(‘Trung binh cong = ‘, sum / length(m));
(* /c *)
(* d *)
sum := 0;
for index := 1 to length(m) do
if isChinhPhuong(m[index]) then
sum += m[index];
writeln(‘Tong so chinh phuong ‘, sum);
(* /d *)
End.