Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 3: 4.7.2016
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
//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.
1.4 -2.7 13.0 4.87 -5.9
Show compiler warnings
[
-
]
Show input
Compilation time: 0.12 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,36 sec
edit mode
|
history
|
discussion
Najvecji element polja je: 13 je na mestu 3