janja - popravek, Pascal

Language: Layout:

//fpc 2.6.2

program Polje;//naloga 9 KJE JE NAPAKA

const n=5;

var Polje1: array[1..n] of integer;
    Polje2: array[1..n] of integer;
    i: 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) / 2;
         end
         else
            Polje2[i]:= round(sqrt(Polje1[i]));
    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.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute service time: 0,22 sec