Naloga 12: 3.9.2003, Pascal

Language: Layout:

//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.

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,35 sec