в чем проблема, что не получается, пришли свой вариант, обычная задача на записи, вот образец подобной задачи
program zap;
uses crt;
type
xim=record
name:string[10];
sim:char;
atom,yadro: real;
end;
var
massiv:array[1..100] of xim;
simv:char;
fl,i,n,maxi,mini:integer;
max, min:real;
BEGIN
clrscr;
writeln(ðàáîòà ñ çàïèñÿìè);
writeln(-------------------);
writeln;
write(ââåñòè êîëè÷åñòâî çàïèñåé N --> );
readln
;
// writeln(vvesti FIO i 3 ocenki );
for i:=1 to n do begin
writeln(i:2, çàïèñü);
with massiv
do begin
write(ââåñòè íàèìåíîâàíèå --> ); readln( name);
write(ââåñòè îáîçíà÷åíèå --> ); readln(sim );
write(ââåñòè ìàññó ÿäðà --> ); readln( atom);
write(ââåñòè çàðÿä ÿäðà--> ); readln( yadro);
end;
end;
writeln(isxodniy spisok );
writeln(-------------------);
for i:=1 to n do
with massiv do
writeln(name, ,sim, ,atom:10:5,yadro:10:5);
writeln;
write(ââåñòè îáîçíà÷åíèå äëÿ ïîèñêà--> ); readln(simv );
fl:=0;
for i:=1 to n do
with massiv do begin
if simv=sim then begin
fl:=1;
writeln(name, ,sim, ,atom:10:5,yadro:10:5);
end;
end;
if fl=0 then writeln(íåò òàêîãî ñèìâîëà );
writeln(ýëåìåíò ñ ñàìîé áîëüøîé ìàññîé ÿäðà);
max:=massiv[1].atom;
maxi:=1;
for i:=2 to n do
if max< massiv.atom then begin
maxi:=i; max:= massiv.atom; end;
with massiv[maxi] do
writeln(name, ,sim, ,atom:10:5,yadro:10:5);
writeln(konec zadachi);
readln;
END.
-------------------------------------------
Самое хорошее в Собаке то, что с ней можно валять дурака. И она не только не будет презирать тебя за это, но и сама станет валять дурака за компанию.
