DSC00473

• X

program t71: uses crt; const n-10;

ta§?ica-array[l..n]of integer; var

t:tablica:

proceduro wprowadz(var t:tablica); var

1:byte;

wr?teln('Podaj Ile cl. na znajdować sio w tablicy'): readln(m);

writelnf'wprowadź cl do tablicy’); writeln;

for i:-l to m do begln

wrłteCtr. i. ’]-'); readln(t[i]); end; end;

proceduro wyp1sz(var t:tablica); var

1:byte; begin

writeln('w tabllicy znajdują sie nast cl.'); for i:-l to m do wMteln('t['.i.']-'.t[i]); end;

procedurę plus(t:tablica); var

Elus.minus.i:byte; cgln

plus:-0:

rainus:=0;

for i:-l to mdo

begin

1f t[ijvO then minus:-«inus+l; if t[i).^vO then plus:-p!us+l; end;

writeln('w tab. jest’,plus,'liczb dod. oraz'.minus,'ujemnych'); end;

function min(t:tablica):integer; var

1:byte;

el_min:integcr;

begin

el_min:«t[l];

for i:«2 to ra do

if el_min>tri] then

el_«in:«t[iJ;

min:-el_min;

end;

begin

clrscr;

wypisz(t); pius(t);

wprowadz(t);

wr1te( Najmniejszy el. tablicy wynosi ',min(t));

readln;

end.

, dUj **&/«, oj^^

^    CV*» .^|£v -«-4jyJy

Ć.JLwt^ii lobli jj .

program zadanie_do«;    “ ^_

uses crt;

taElica»array[l..50]of real; var

t:tablica;

ilosc:byte;

procedurę wprowadz(var c:tablica; il:byte); var

J2T

"^rlteln(*wprowadź el. do tablicy *);

for 1:-i to 11 do

begin

wrłtcCtr.i. *]-•);

readln(tM):

end;

end;

procedurę sredn1a_el(var t:tabl1ca; 1l:byte); var

1:byte;

średnia.suma:real; begin

suia*lo^ ^{Srednła arytmetyC2na el}- "Prowadzonych ⁰⁰ tablicy wynosi*);

for i:-i to i 1 do su»ia:»su«a+t[il: średni a:-suma/i1;

writeln(*Srcdnia - *,srednia:5:2); end;

function oax(var t:tablica):real; var

maks:real;

jar

maks:-tri];

for 1:-2 to 1losc do

if maks<tTi] then «aks:»t[ij; max:*maks; end: begin clrscr:

write(Podaj ile el.chcesz wprowadzić do tablicy*); readlnfilosc); wprowadz(t,ilosc); średnia_el(t.ilosc):

write(*Największy el. tablicy to *,max(t):4:2);

repeat until keybressed

end.

1

• •