Кестеде берілген әріптерден сабаққа қатысты сөздерді тап
ф
Қ
а
к
л
д
к
у
о
K
а
LI
к
III
у
д
T
a​

//прога на 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;

readln (n);
setLength (a, n);for i:=0 to n-1 doa[i]:=random (2*1000000000) - 1000000000;writeln (a);selectsort (n, a);writeln (a);
end.

//прога на 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.