Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1046
//fpc 3.0.0 program HelloWorld; var n,i,j,k,l,m:longint; a:array[1..100]of longint; b:array[1..100]of boolean; begin readln(n); j:=1; for i:=1 to n do begin read(a[i]); b[i]:=false; end; for i:=1 to n do begin if a[i]<>a[i] then begin b[i]:=true; if b[i]=true then j:=j+1; end else if b[i]=false then write(a[i]); if n>1 then write(' '); if j>1 then break; //write(j,' '); end; end.
run
|
edit
|
history
|
help
0
1º Questão - VS - 1º Semestre 2017
9
Поиск вершин в горах
SmallQuest
jhjj
Homework 8
Task 1_2
Task 1
Kim
3