Ребят, помогите пожалуйста с Паскалем, очень нужно. 1. В массиве Т [1..25] вы записали...

Question

Ребят, помогите пожалуйста с Паскалем, очень нужно.

1. В массиве Т [1..25] вы записали рост каждого ученика, а массив С [1:25] записали вес каждого ученика соответственно. Составьте на Паскале программу вычисления среднего роста и среднего веса.

2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных: а). 1 3 5 6 8 9 б). - 1 4 6 2 4 6 8 6 9

Answer 1

1.

var

  T, C : array [1..25] of real;

  sumT, sumC : real;

  i : integer;

begin

  for i := 1 to 25 do read (T[i]);

  for i := 1 to 25 do read (C[i]);

  sumT := 0; sumC := 0;

  for i := 1 to 25 do

  begin

    sumT := sumT + T[i];

    sumC := sumC + C[i];

  end;

  writeln ('Средний вес = ', sumT / 25);

  writeln ('Средний рост = ', sumC / 25);

end.

 

2. 

const

  maxn = 1000;

var

  a : array [1..maxn] of integer;

  n, i : integer;

begin

  read (n); //Если n дано

//Если n не дано, нужно читать до конца строки

 //while not eoln do begin n := n + 1; read (a[n])} end;

  for i := 1 to n do read (a[i]); //Если n дано

  for i := n downto 1 do

    if i mod 2 = 1 then write (a[i], ' ');

end.

 

Тесты: а) 8 5 1 б) 9 8 4 6 1