Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
practica 7 ejercicio 7
JESSICA GOMES DE SOUZA FERREIRA 600621634
P170815A - Cálculo da massa de um tanque
9 „C”
Сортировка массива цифр
pdp31-final
Prvi zadatak vezbe pokazivaci
zad27-optimized
sandogh 1
AreaTriangulo.pas
Please log in to post a comment.