program PSMCG;

uses crt;

const N = 5;

type MangA = array[1..N] of integer;

var A: MangA;

     i, max, min, sum: integer;

begin

     for i := 1 to N do

     begin

          write('Nhap phan tu A[', i, ']: ');

          readln(A[i]);

     end;

     writeln('Mang A: ');

     for i := 1 to N do

     begin

          write(A[i], ' ');

     end;

     writeln;

     max := A[1];

     min := A[1];

     for i := 2 to N do

     begin

          if A[i] > max then max := A[i];

          if A[i] < min then min := A[i];

     end;

     writeln('Gia tri lon nhat la: ', max);

     writeln('Gia tri nho nhat la: ', min);

     sum := 0;

     for i := 1 to N do

     begin

          sum := sum + A[i];

     end;

     writeln('Tong gia tri trong mang A la: ', sum);

     readln;

end.

Uses crt;

var i,n,min,max: longint;

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

begin clrscr;

readln(n);

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

writeln(a[i]:3)

max:=a[1];

for i:=1 to n do begin

if(max<a[i]) then max:=a[i];

end;

writeln(max);

min:=a[1];

for i:=1 to n do begin

if(min>a[i]) then min:=a[i];

end;

writeln(min);

readln;

end.

program Tinh_Tong_Phan_Tu_Chan;

var
  A: array of Integer;
  N, i, sum: Integer;

begin
  Write('Nhap N: ');
  Readln(N);

  SetLength(A, N);

  // Nhập các phần tử cho mảng A
  for i := 0 to N - 1 do
  begin
    Write('Nhap phan tu thu ', i + 1, ': ');
    Readln(A[i]);
  end;

  // In lên màn hình các phần tử của mảng A
  Write('Cac phan tu cua mang la: ');
  for i := 0 to N - 1 do
  begin
    Write(A[i], ' ');
  end;
  Writeln;

  // Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
  sum := 0;
  for i := 0 to N - 1 do
  begin
    if A[i] mod 2 = 0 then
      sum := sum + A[i];
  end;
  Writeln('Tong cac phan tu chan cua mang la: ', sum);

  Readln;
end.

Đây là một chương trình Python để nhập vào một mảng A có n phần tử và tính tổng các số lớn hơn 0 trong mảng đó:

```python
n = int(input("Nhập số phần tử của mảng: "))
A = []
sum = 0

Nhập các phần tử của mảng

for i in range(n):
A.append(int(input("Nhập phần tử thứ %d: " % (i+1))))

Tính tổng các số lớn hơn 0 trong mảng

for i in range(n):
if A[i] > 0:
sum += A[i]

In ra tổng các số lớn hơn 0 trong mảng

print("Tổng các số lớn hơn 0 trong mảng là:", sum)
```

Giải thích:

Dòng 1: Yêu cầu người dùng nhập số phần tử của mảng.Dòng 2: Khai báo một mảng A rỗng và một biến sum để tính tổng các số lớn hơn 0.Dòng 5-7: Sử dụng vòng lặp for để nhập các phần tử của mảng A từ bàn phím.Dòng 10-13: Sử dụng vòng lặp for để duyệt qua từng phần tử của mảng A. Nếu phần tử đó lớn hơn 0, thì cộng giá trị của nó vào biến sum.Dòng 16: In ra tổng các số lớn hơn 0 trong mảng.

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

i,n,max:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

if a[i] > max then max:=a[i];

write('So lon nhat la ',max);

Readln

End.

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

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

t:=1;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do 

  if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem1,dem2;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem1=0;

dem2=0;

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

{

if (a[i]%2==0) dem1++;

else dem2++;

}

cout<<dem1<<" "<<dem2;

return 0;

}

Bài 23

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

i,n:integer;

s,tbc:real;

begin

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

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

i,n,max:integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

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

i,n,d,max:integer;

begin

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

for i:=1 to n do

begin

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

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

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

writeln('Co ',d,' so le');

write('So lon nhat la ',max);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,nn,t;

int main()

{

cin>>n;

nn=LLONG_MAX;

t=0;

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

{

cin>>x;

t+=x;

nn=min(nn,x);

}

cout<<nn<<" "<<t;

return 0;

}