Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
janja - popravek
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 Polje;//naloga 9 KJE JE NAPAKA const n=5; type poljeInt = array[1..n] of integer; var Polje1, Polje2: poljeInt; i: integer; square: Extended; tmp: Integer; begin for i:= 1 to n do begin //writeln('Vpiši ',i, ' . število: '); readln(Polje1[i]); end; for i:= 1 to n do begin if(Polje1[i] MOD 2 = 0) then begin Polje2[i]:= Polje1[i] Div 2; // imela si Polje1.. prav tako se deli z Div in ne z "/" end else begin // writeln(Polje1[i]); square := Sqrt(Abs(Polje1[i])); //vzameš abs tmp := Round(square); // round ti extended tip spremeni v smallint -- sem ti dal po korakih da je bolj vidno tmp := tmp; Polje2[i]:= tmp; 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. //Napišite program, ki bo preko tipkovnice prebral 5 celih števil in jih vpisal v polje1. //Tvorite polje2 celih števil na naslednji način: //- če je neki element polja POLJE1 sodo število, potem v polje2 vpišete polovico tega elementa polja POLJE1. //- če je neki element polja POLJE1 liho število, potem v POLJE2 vpišete zaokrožen kvadratni koren absolutne vrednosti tega elementa.
4 -12 -13 20 33
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
polje1: 4 -12 -13 20 33 polje2: 2 -6 4 10 6