Pascal Užduotis

Sveiki bandžiau daryti pats bet nelabai gavosi taigi prašau jūsų pagalbos :).

Užduotis:

1. Tarkime, kad turime n apskritimų. Žinomi jų spindulių ilgiai. Reikia surasti didžiausią apskritimą ir nustatyti, kiek iš viso yra tokių didžiausių apskritimų.

2. Parašykite programą, surikiuojančią apskritimus nuo didžiausio iki mažiausio.

Mano darbas :

program namudarbainr2;

var mas:array [1..30] of integer;

spin,kd:array [1..30] of integer;

filed,filer:text;

n,i,spind,nr,sum:integer;

begin

assign(filed,'Duomenys.txt');

reset (filed);

readln(filed,n);

for i:= 1 to n do

readln (filed,mas,spin);

spind:=spin ;

sum:=1 ;

for i:= 2 to n do

if spin> spind

then

spind:= spin;

for i:= 2 to n do

if spin=spind

then

sum:= +1;

Close (filed);

assign (filer,'Rezultatas.txt');

rewrite(filer);

writeln (filer,'didziausias apskritimas ',' ','R',spind:7,'cm');

writeln (filer,'Tokiu apskritimu yra ',sum:7);

close (filer);

end.