ropr1tst.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program pr1;
type informatii=record
     nume:string[40];
     varsta:byte;
     inaltimea:byte;
     end;
var  v:array[1..100]of informatii;
     n,i:integer;
     ok:boolean;
     aux:informatii;
     max,min,s:byte;
     m:real;
begin
write('n=');readln(n);
for i:= 1 to n do
               with v[i] do begin
                            write('numele:');readln(nume);
                            write('varsta:');readln(varsta);
                            write('inaltimea:');readln(inaltimea);
                            end;
repeat
ok:=true;
for i:=1 to n-1 do
  if v[i].nume>v[i+1].nume then begin
                                aux:=v[i];
                                v[i]:=v[i+1];
                                v[i+1]:=aux;
                                ok:=false;
                                end;
until ok=true;
for i:=1 to n do
              with v[i] do writeln(nume:50,varsta:5,inaltimea:5);
max:=v[1].inaltimea;
for i:=2 to n do
if v[i].inaltimea>max then max:=v[i].inaltimea;
for i:=1 to n do
if max=v[i].inaltimea then with v[i] do writeln('c m inalta',nume:50,varsta:5,inaltimea:5);
min:=v[1].varsta;
for i:=2 to n do
if v[i].varsta<min then min:=v[i].varsta;
for i:=1 to n do
if min =v[i].varsta then with v[i] do writeln('c m tanara',nume:50,varsta:5,inaltimea:5);
for i:= 1 to n do
s:=s+v[i].varsta;
m:=s/n;
write('media de varsta',m:5:2);
end.