Тжб 6 класс информатика ответ ​

type

 Str = record

         fio: string;

         h: byte;

       end;

var

 base: array of Str;

 i,sum,n,err:integer;

begin

write('Число учеников: '); readln(n);

setlength(base,n);

sum:=0;

writeln('Введите фамилию и рост через "space": ');

for i:=0 to n-1 do

 begin

   write(i+1:4,'. ');

   readln(base[i].fio);

   val(copy(base[i].fio,

            pos(' ',base[i].fio)+1,  

            length(base[i].fio)-pos(' ',base[i].fio)),

       base[i].h,  

       err);

   delete(base[i].fio,

          pos(' ',base[i].fio),

          length(base[i].fio));

   sum:=sum+base[i].h;

 end;

writeln('Средний рост: ',sum/n:4:1);

for i:=0 to n-1 do

 if base[i].h<sum/n then

   writeln(base[i]);

end.

{2 в 1)

Задача:  вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}
var
  a:array[1..100] of integer;
  i, summ1, summ2, n:integer;
begin
  summ1 := 0;
  summ2 := 0;
  randomize;
  write('n = '); readln(n);
  writeln('Исходный массив :');
  for i := 1 to n do
  begin
    a[i] := random(51) - 25;
    write(a[i], ' ');
    if abs(a[i]) mod 2 = 1 then
      summ1 := summ1 + a[i];
    if i mod 2 = 0 then
      summ2 := summ2 + a[i];
  end;
  writeln;
  writeln('Сумма нечетных элементов: ', summ1);
  writeln('Сумма элементов стоящих на четных позициях: ', summ2);
  readln;
end.