Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.

1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.

2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.

3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.

Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.

Chúc bạn học tốt .

Câu 1: 

uses crt;

var n,i,t:integer;

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

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Câu 1:

Program Tin_hoc;

Uses crt;

Var i,n,tong:integer;

      tb:real;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap n: ');readln(n);

tong:=0;

Writeln('Nhap ',n,' phan tu cua day:');

for i:= 1 to n do

  begin

  write('a[',i,'] = ');

  readln(a[i]);

  tong:=tong+a[i];

  end;

tb:=tong/n;

Writeln('Gia tri trung binh cua day la: ',tb:0:4);

readln;

end.

bạn tham khảo 

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

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

i,n,dem1,dem2:integer;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

dem1:=0;

dem2:=0;

for i:=1 to n do

begin

if i = n then write(a[i])

else write(a[i],' ');

if a[i] mod 2 = 0 then dem1:=dem1+1

else dem2:=dem2+1;

end;

writeln('So cac phan tu chan la ',dem1);

write('So cac phan tu le la ',dem2);

readln;

end.

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++)

if (i%2!=0) t+=a[i]*a[i];

cout<<t<<endl;

for (i=1;i<=n; i++)

if (a[i]<0) cout<<a[i]<<" ";

cout<<endl;

sort(a+1,a+n+1);

for (i=n; i>=1; i--)

cout<<a[i]<<" ";

return 0;

}

uses crt;

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

n,dem,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('Trung binh cong cac phan tu o vi tri le la: ',t/dem:4:2);

readln;

end.

Program HOC24;

var  d,N,i: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0; d:=0;

for i:=1 to n do

begin

t:=t+a[i];

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

end;

writeln('Tong day so la: ',t);

write('Co ',d,' so nguyen duong');

readln

end.

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

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.

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+sqr(i);

write('S= ' ,s);

readln

end.

Uses crt;

var i,n,y: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=i*i;

Writeln(s);

readln;

end.