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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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