program matador_zaliczenie5;
{$mode objfpc}{$H+}
uses SysUtils;
type tab = array[0..12] of Double;
var i:integer;
    t:tab;
    nazwa: String;
    wynik: Text;
    x, z: double;
    liczba:double;
    plik:TextFile;

function ilezjedenpiec(t:tab): integer;
var a: integer;
begin;
a:=0;
for i:=0 to 12 do
begin
if (t[i]>-1) and (t[i]<5) then
Begin
a:=a+1;
end;
end;
result:=a;
end;

var MAX:double; var POZ:integer;
procedure maxzujem(var t:Tab; var MAX:double; var POZ:integer);
var re: integer;
begin
MAX:=0;
POZ:=0;
for i:=0 to 12 do
begin
if (t[i]<0) then
begin
if(MAX<t[i]) then;
begin
MAX:=t[i];
re:=i;
POZ:=re;
end;
end;
end;
end;

function sredniazwiekszych(t:tab; liczba:double): double;
begin
x:=0;
z:=0;
for i:=0 to 12 do
if t[i]>liczba then
begin
x:=x+t[i];
z:=z+1;
end;
result:=x/z;
end;


begin
writeln('Wprowadz dane do tablicy.');
writeln;
for i:=0 to 12 do
   begin
     Write('Podaj ',i, ' element: '); Readln(t[i]);
   end;
WriteLn;
WriteLn('Oto zawartosc twojej tablicy:');
WriteLn;
For i:=0 to 12 do
Begin
Writeln(i, ': ', t[i]:4:2,  '    ');
end;
WriteLn;
ilezjedenpiec(t);
WriteLn('Ilosc liczb z przedzialu <-1,5> wynosi:  ', ilezjedenpiec(t));
WriteLn;
maxzujem(t,MAX,POZ);
WriteLn('Maksimum z liczb ujemnych wynosi:  ', MAX:4:2);
WriteLn('A jego pozycja to:  ', POZ);
WriteLn;
Write('Podaj liczbe: ');
Readln(liczba);
Writeln('Srednia z liczb wiekszych od podanej liczby wynosi:  ', sredniazwiekszych(t,liczba):4:2);
WriteLn;
Write('Podaj nazwe pliku:  ');
Read(nazwa);
nazwa:=nazwa+'.txt';
AssignFile(plik, nazwa);
Rewrite(plik);
Writeln(plik,'Elementy tablicy');
for i:=0 to 12 do
begin
writeln(plik, i, ': ', t[i]:4:2);
writeln(plik,'ilosc elementow  z przedzialu <-1,5> wynosi ', ilezjedenpiec(t));
Writeln(plik, 'Najwieksza liczba z ujemnych wynosi ', MAX);
writeln(plik, 'i jest na pozycji ',POZ);
Writeln(plik, 'Zadana srednia wynosi ', sredniazwiekszych(t,liczba):4:2);
end;
closefile(plik);
readln;
Writeln('Plik zostal zapisany pod nazwa: ', nazwa);
Write('Nacisnij dowolny klawisz, aby zakonczyc dzialanie programu ');
Readln;
end.