www.ispwsznysa.fora.pl

stramik

Moje rozwiązanie zadania z kartkówki:

program kartkowka;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tab=array[1..15] of integer;

procedure wypelnij (var tablica:tab);
var
k:integer;
begin
writeln('Podaj elementy tablicy');
for k:=1 to 15 do
begin
write('Podaj ',k,' element ');
readln(tablica[k]);
end;
end;

function sr (tablica:tab):real;
var
k,suma:integer;
sred:real;
begin
suma:=0;
for k:=1 to 15 do
begin
suma:=suma+tablica[k];
end;
sred:=suma/15;
result:=sred;
end;

procedure odchyl (tablica:tab);
var
j:integer;
srednia,odchyl:real;
begin
srednia:=sr(tablica);
for j:=1 to 15 do
begin
odchyl:=srednia-tablica[j];
writeln('Odchylenie ',j,' elementu wynosi ',odchyl:3:3);
end;
end;

var
tablica:tab;
srednia:real;

begin
srednia:=0;
wypelnij(tablica);
srednia:=sr(tablica);
writeln;
writeln('Srednia z tablicy wynosi ',srednia:3:3);
writeln;
odchyl(tablica);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Siwy

brawo, wygrałeś snikersa