Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 12: 3.9.2003
//fpc 2.6.2 program Polja;//naloga12 const n=4; var Polje1: array[1..n] of real; Polje2: array[1..n] of real; i: integer; vsota, povprecje: real; begin for i:= 1 to n do begin //writeln('Vpiši število: '); readln(Polje1[i]); end; vsota:= 0; for i:= 1 to n do begin vsota:= vsota + Polje1[i]; end; writeln('Vsota je: ',vsota:0:2); povprecje:= vsota / n; writeln('Povprecje je:', povprecje:0:2); for i:= 1 to n do begin Polje2[i]:= Polje1[i] / povprecje; end; write('polje1: '); for i:= 1 to n do begin write(Polje1[i]:0:2,' '); end; writeln(); write('polje2: '); for i:= 1 to n do begin write(Polje2[i]:0:4,' '); end; end. //Program prebere n realnih števil in jih shrani v polje1. Nato ustvari polje2, ki bo vsebovalo elemente polja1 deljene s povprečno vrednostjo v tem polju.
run
|
edit
|
history
|
help
0
nomer4
zadacha5
ANDRESSA LIMA NEPOMUCENO 600624624
searchtree
dz_lesson_17
Задачи на div-mod
zadanye 3 b
practica 7 ejercicio 7
gfdresz
tarea1