Tin học kiểu mảng

thuytiendp1qn2603@gmail.com

Học sinh mới
Thành viên
17 Tháng bảy 2019
46
1
6

Nhật Hạ !

Học sinh chăm học
Thành viên
14 Tháng tư 2019
409
292
76
20
Quảng Nam
THCS Lê Quang Sung
Mã:
Var a:array[1..1000] of longint;
n,i:integer;
doixung:boolean;

Begin
Write('Nhap so phan tu cua mang'); Readln(N);
For i:=1 to n do
        Begin
        Write('a[',i,']= ');
        Readln(a[i]);
        End;

doixung:=true;
For i:=1 to n div 2 do
        If a[i]<>a[n-i+1] then doixung:=false;
If doixung=true then write('Doi xung ') else write('Khong doi xung');

Readln;
End.
 
Top Bottom