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

viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10

A, in mảng vừa nhập ra màn hình

B, tính tổng các phần tử của mảng, in kết qua ra màn hình

C, đếm số lượng các phần tử có giá trị dương

D, tính trung bình cộng các số có giá trị chẵn

E, in ra màn hình các phần tử là số hoàn hảo

Nguyễn Lê Phước Thịnh
20 tháng 1 2022 lúc 15:08

uses crt;

var a:array[1..10]of longint;

n,i,t,dem,dem1,dem2,t1:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

t1:=0;

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then dem1:=dem+1;

if a[i] mod 2=0 then 

begin

dem2:=dem2+1;

t1:=t1+a[i];

end;

end;

writeln(dem1);

writeln(t1/dem2:4:2);

readln;

end.


Các câu hỏi tương tự
Nguyễn Quang Kiệt
Xem chi tiết
Thảo Nguyễn
Xem chi tiết
Huy Hoàng Phạm
Xem chi tiết
Nguyễn Văn Hùng
Xem chi tiết
Danh Nguyễn
Xem chi tiết
lamgi hoi
Xem chi tiết
Ken Kaneki
Xem chi tiết
ngomanhcuong
Xem chi tiết
Lê Thị Hồng anh
Xem chi tiết