nakartkowkezwdp

program Project1;

const N=10;
type tab=array[0..N] of double;
  var
    R : Tab;
    i : Byte;

var sumuj: double; liczuj: integer;
function srednia(R: Tab): double;
begin
liczuj:=0;
sumuj:=0;
 for i:=1 to N do
if R[i]<0 then
begin
sumuj:=sumuj+R[i];
liczuj:=liczuj+1;
end;
if liczuj=0 then result:=0
else result:=sumuj/liczuj;
end;

  var MIN: double; POZ: integer;
procedure pocos(var R : Tab; var MIN : double; var POZ : integer);

begin
   MIN:=0;
   for i:=1 to N do
   if R[i]<0 then
   begin
   if MIN>R[i] then MIN:=R[i];
   POZ:=i;
   end;

end;

function napotkana(R: tab): integer ;
begin;
  for i:=1 to N do

 if (R[i]-2*trunc(R[i]/2))=0   then
 begin result:=i;
 break;
  end;
  end;
var nazwa :string; pliczek: TextFile;
  Begin
   for i:=1 to N do
   begin
     write('R[',i,']=');
     readln(R[i]);
   end;
   for i:=1 to N do writeln(R[i]:4:2);
   Writeln('srednia liczb ujmenych wynosi ',srednia(R):4:2);
   readln;
   pocos(R,MIN,POZ);
   Writeln('miniamalna liczba ujmnna wynosi  ', MIN:4:2);
   Writeln('i jest na miejscu ',POZ);
   readln;
   Writeln('Pierwsza liczba parzysta jest na miejscu ', napotkana(R));
   readln;
   Writeln('Podaj nazwe pliku');
   readln(nazwa);
   nazwa:=nazwa+'.text';
   AssignFile(pliczek,nazwa);
   rewrite(pliczek);
   for i:=1 to N do writeln(pliczek, R[i]:4:2);
   writeln(pliczek,'srednia liczb ujmenych wynosi ',srednia(R):4:2);
    Writeln(pliczek,'miniamalna liczba ujmnna wynosi  ', MIN:4:2);
    Writeln(pliczek,'i jest na miejscu ',POZ);
   closefile(pliczek);
   readln;

  end.

end.