Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 5: 9.2.2011
//fpc 2.6.2 program Polja; const n=8; var Polje1: array[1..n] of integer; Polje2: array[1..n] of string; i:integer; st:integer; begin for i:= 1 to n do begin //writeln('Vnesi število: '); readln(st); if(st MOD 2 = 0) then begin Polje1[i]:= st; end; end; for i:= 1 to n do begin if(Polje1[i] < 0) then begin Polje2[i]:= '"negativno stevilo"'; end; if(Polje1[i] > 0) then begin Polje2[i]:= '"pozitivno stevilo"'; end; if(Polje1[i] = 0) then begin Polje2[i]:= '"nic"'; end; end; write('polje1: '); for i:= 1 to n do begin write(Polje1[i],' '); end; Writeln(); write('polje2: '); for i:= 1 to n do begin write(Polje2[i],' '); end; end.
run
|
edit
|
history
|
help
0
y
RENAN COSTA CARLOS DA CUNHA 600623343
Projet1
Task 3
nomer2
practica 2 ejercicio 8
hh
practica 2 ejercicio 8
1
nigger