//прога на Pascal`е var a: array of longint; n, i: longint; // procedure zam(var a, b: longint); var pz: longint;beginpz:=a;a:=b;b:=pz;end; procedure selectsort (rm : longint; var sortmas: array of longint);vari, j, min: longint;begin for i:=0 to rm-2 dobeginmin:=i;for j:=i to rm-1 doif sortmas[min]>sortmas[j] then min:=j; if i<>min then zam (sortmas[i], sortmas[min]);end; end;// beginrandomize;
//прога на Pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('Введите кол-во учеников: '); readln (n); setLength (mas, n); for i:=0 to n-1 do begin write ('Введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('Введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n) end.
