Кому не трудно, help! ерунду не писать, типа "", "я хз лол" и тд. за понимание) опишите комбинированный тип для записей, содержащих следующие данные учеников: фамилию, имя, год рождения, рост (в сантиметрах), вес (в килограммах).

В век развития многоядерной процессорной архитектуры тема параллельного программирования для инженеров и проектировщиков компьютерных систем становится очень важной. Книга «Принципы параллельного программирования», написанная известными учеными-исследователями Кэлвином Лином (кафедра информатики Техасского университета, г. Остин) и Лоуренсом Снайдером (кафедра информатики и вычислительной техники университета Вашингтона, г. Сиэтл), посвящена основополагающим принципам параллельных вычислений. В книге дается объяснение различным явлениям и приводятся примеры случаев, когда эти явления успеху параллельного программирования, либо, наоборот, создают определенные сложности. Издание предназначено для студентов-специалистов старших курсов университетов, для студентов, обучающихся по магистерским программам, а также для профессионалов, желающих освоить параллельное программирование. В книге содержится ценная достоверная информация, которая останется актуальной, несмотря на эволюцию аппаратного и программного обеспечения.

1)

const
  n=40;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  Writeln('Исходный массив');
  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
  Writeln; Writeln('Четные элементы, кратные 3');
  for i:=1 to n do
    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
  Writeln; Writeln('Отобрано элементов: ',k)
end.

Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6

2)

const
  n=20;
var
  a:array [1..n] of integer;
  i,imin:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=random(351)+20;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i
    end;
  Writeln;
  Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.

Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39