Question

Câu 1:Nhập vào mảng a gồm n phần tử là số nguyên(n nhập từ bàn phím).

Câu 2: In ra dãy vừa nhập

Câu 3: In ra các số lẻ

Câu 4: Tính tổng các số vừa nhập

Câu 5: Tính trung bình cộng các số vừa nhập

mk cần gấp lắm ạ,làm ơn giúp mk:(((

Answer 1

làm trên microsoft hay pascal z :?

Answer 2

uses crt;

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

i,n,t: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;

for i:=1 to n do 

  if (a[i] mod 2<>0) then write(a[i]:4);

writeln;

t:=0;

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

writeln(t);

writeln(t/n:4:2);

readln;

end.