Viết chương trình: Nhập một dãy số nguyên có n phần tử Xuất ra màn hình dãy số vừa nhập In ra màn hình các số có giá trị bằng 15

2 câu trả lời

$@HoangHigo$

uses crt;
var n,i:longint;
    a:array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do write(a[i],' ');
    writeln;
    for i:=1 to n do
        if a[i] = 15 then write(a[i],' ');
readln; readln;
end.