uses crt;

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

i,n,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

ln:=0;

for i:=1 to n do

if trunc(sqrt(A[i]))=sqrt(a[i]) then 

begin

write(a[i]:4);

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

end;

writeln;

writeln('So chinh phuong lon nhat la: ',ln);

readln;

end.

mình chạy thử nhưng không ra kq ạ?

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

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 to n do

begin

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

end;

write('Day vua nhap la: '); 

for i:=1 to n do write(a[i],' '); writeln;

d:=0;

for i:=1 to n do if a[i]>0 then d:=d+1;

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

readln

end.

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;

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

Ý a vs ý b đâu

bn

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.

cứu m vs