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
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.