Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 3: 4.7.2016
//fpc 2.6.2 program Polja; uses SysUtils; const n=5; var polje1: array[1..n] of real; i:integer; najvecji: Real; index: integer; begin for i:= 1 to n do begin readln(Polje1[i]); end; index:=1; najvecji:= polje1[index]; for i:= 2 to n do begin //writeln(Polje1[i]); if (polje1[i] > najvecji) then begin najvecji:= polje1[i]; index := i; end; end; writeln('Najvecji element polja je: ', floatToStr(najvecji), ' je na mestu ', index); end.
run
|
edit
|
history
|
help
0
basketball_player_training
Opdracht_1
Kelipatan
AreaTriangulo.pas
zad27-notoptimal
Menukar nilai1
"Is reality breaking?" Device
lala
zadacha4
practica 2 ejercicio 5