ZADANIE 1

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
type tablica = array[1..11] of integer;
var
nazwa : string;
i : integer ;
t : tablica;
plik : Text;
Function srednia(t : tablica) : real;
var sr : real;
  suma : real;

begin
suma:=0;
srednia:=0;
for i:=1 to 11 do
begin
suma:=suma+t[i];

end;
srednia:=suma/11;
end;
procedure iloscpowtorzen(t : tablica);
var iloscp : integer;
begin
iloscp:=0;
for i:=1 to 11 do
if(t[i]=t[1]) then iloscp := iloscp + 1;

writeln('ilosc powtorzen',iloscp);
end;
begin
for i:=1 to 11 do
begin
writeln('t[',i,']');
    readln(t[i]);
end;
for i:=1 to 11 do
begin
   writeln('t[',i,']=',t[i]);
end;


writeln('srednia wynosi:' ,srednia(t));
iloscpowtorzen(t);
writeln('Podaj nazwe pliku');
readln(nazwa);
Assign(plik,nazwa+'.txt');
rewrite(plik);
begin
for i:=1 to 11 do
writeln(plik,'Element[',i,']=',t[i]);
end;
close(plik);
readln;

end.                                     


ZADANIE 2 

 Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
type tablica= array[1..8] of integer;
var
nazwa : string   ;
 tablica1 : tablica;
 i, ilosc : integer;
 dane : Text;
Function srednia(tablica1:tablica):Real;
var suma : real;
    ilosc : integer;
 begin
 suma:=0;
 ilosc:=0;
 for i:=0 to 8 do
 begin
 if(tablica1[i] mod 2 = 0) then
 begin
 suma:=suma+tablica1[i];
 ilosc:=ilosc+1;
 end;
 end;
 srednia:=suma/ilosc;
 end;
Procedure wartosczblizona(tablica1:tablica;srednia:Real);
begin
for i:=0 to 8 do
    if((srednia-tablica1[i]<=1) and (srednia-tablica1[i]>=-1))  then
    writeln('Liczby zblizone do sredniej to ',tablica1[i]);

end;
begin
for i:=1 to 8    do
begin
  writeln('Podaj ',i,' element tablicy');
  readln(tablica1[i]);
end;

for i:=1 to 8    do
begin
  writeln('Element[',i,']=',tablica1[i]);

end;
writeln('Srednia elementow podzielnych przez dwa wynosi :',srednia(tablica1));
wartosczblizona(tablica1,srednia(tablica1));
writeln('Podaj nazwe pliku');
readln(nazwa) ;
Assign(dane,nazwa+'.txt');
rewrite(dane);
begin
for i :=1 to 8 do
writeln(dane,'Element[',i,']',tablica1[i]);

end;
close(dane);
readln;