uses crt;
var a: array[1..100] of integer;
i: longint;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
writeln('day vua nhap la:');
for i:=1 to 20 do write(a[i],' ');
readln
end.

uses crt;

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

i,n:integer;

begin

clrscr;

n:=20;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

uses crt;
var a: array[1..100] of longint;
    i,n,max,min: longint;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap so thu ',i,': '); 
        readln(a[i]);
    end;
    max:=a[1]; min:=a[1];
    for i:=1 to n do
    begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('So lon nhat trong mang la: ',max);
    write('So nho nhat trong mang la: ',min);
    readln
end.

program TongChanLe;

var

     n,i, chans, les: integer; a: array[1..100] of integer;

begin

     chans := 0;

     les := 0;

     write('Nhap n: ');

     readln(n);

     for i:=1 to n do

     begin

          write('Nhap so thu ', i, ': ');

          readln(a[i]);

          if a[i] mod 2 = 0 then

               chans := chans + a[i]

          else

               les := les + a[i];

     end;

     writeln('Tong cac so chan la: ', chans);

     writeln('Tong cac so le la: ', les);

     readln;

end.

Giúp tớ câu này với ạ

Nhập vào mảng số nguyên gồm n phần tử tìm phần tử lớn nhất ,phần tử nhỏ nhất của mảng in giá trị từng phần tử của mảng

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()
{

cin>>n;

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

cin>>a[i];

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

return 0;

}

uses crt;

var a:array[1..20]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;

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

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

for i:=1 to n do 

 if a[i]>50 then write(a[i]:4);

writeln;

for i:=1 to n do 

 if a[i]<30 then write(a[i]:4);

readln;

end.

n = int(input("Nhập số phần tử của dãy số: "))
numbers = []

# Nhập dãy số nguyên
for i in range(n):
    num = int(input(f"Nhập số thứ {i+1}: "))
    numbers.append(num)

# Xuất dãy số nguyên
print("Dãy số vừa nhập là:", end=" ")
for num in numbers:
    print(num, end=" ")

 Nếu lớp 10 về viết chương trình thì bạn nên sử dụng Python, còn lớp 8 và 11 vẫn Pascal bạn nhé.

program nhapdayso;

var

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

      n, i: integer;

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

      readln(a[i]);

      end;

      writeln('Day so ban vua nhap la:');

      for i := 1 to n do

            write(a[i], ' ');

      readln;

end.

n = int(input('Nhập n ( n < 150): '))

if n >= 150:

     print('n phải nhỏ hơn 150')

else:

     arr = [ ]

     total = 0

     # Nhập vào dãy số nguyên

     for i in range(n):

          arr.append(int(input('Nhập phần tử thứ ' + str(i+1) + ': ')))

     # In dãy vừa nhập

     print('Dãy vừa nhập là: ', end='')

     for i in range(n):

          print(arr[i], end=' ')

     # Tính tổng các phần tử lẻ

     for i in range(n):

          if arr[i] % 2 != 0:

               total += arr[i]

     print('\nTổng các phần tử lẻ là:', total)