kartka2

program project2;

const N=13;
  type tab = array[1..N] of double;
  var i, ilosc, poz: integer; T: tab; nazwa: string; pliczek:TextFile;  max, x, m: double;
    function odczyt(T:Tab): integer;
    begin
      ilosc:=0;
      for i:=1 to N do
      begin
        if (T[i]>=-1) and (T[i]<=5) then  ilosc:=ilosc+1 ;

      end;
      result:=ilosc
    end;

procedure  zwroc(T: tab; var max: double; var poz: integer);
begin
  max:=-1000;
  poz:=0;
  for i:=1 to N do
  if T[i]<0 then
  begin
    if max<T[i] then
    begin
      max:=T[i];
      poz:=i;
  end;
    end;
  end;
function zadanie6(T: tab; m:double): double;
begin

  x:=0;
  ilosc:=0;
  for i:=1 to N do
    if T[i]>m then
    begin x:=x+T[i];
      ilosc:=ilosc+1;
      end;
  result:=x/ilosc;
  end;


begin
Writeln('Podaj elemnty  tablicy');
  for i:=1 to N do
  begin
    write('T[',i,']=');
    readln(T[i]);
  end;

for i:=1 to N do writeln(T[i]:4:2);
readln;
writeln('ilosc elementow  z przedzialu <-1,5> wynosi ', odczyt(T));
zwroc(T, max, poz);
Writeln('Najwieksza liczba z ujemnych wynosi ', max:4:2);
writeln('i jest na pozycji ',poz);
Writeln('Podaj liczbe dla ktorej policzyc srednia liczb wieksszych od niej');
read(m);
Writeln('Zadana srednia wynosi ', zadanie6(T,m):4:2);
readln;
   Writeln('Podaj nazwe pliku');
   read(nazwa);
   nazwa:=nazwa+'.txt';
   AssignFile(pliczek, nazwa);
   Rewrite(pliczek);
   Writeln(pliczek,'Elementy tablicy');
   for i:=1 to N do
   writeln(pliczek, T[i]:4:2);
    writeln(pliczek,'ilosc elementow  z przedzialu <-1,5> wynosi ', odczyt(T));
    Writeln(pliczek, 'Najwieksza liczba z ujemnych wynosi ', max);
    writeln(pliczek, 'i jest na pozycji ',poz);
    Writeln(pliczek, 'Zadana srednia wynosi ', zadanie6(T,m):4:2);
   closefile(pliczek);
   readln;
end.