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
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел
i, n : integer;
begin
//Если колчисетво чисел вводится, то этот код
read (n);
for i := 1 to n do
read (a[i]);
//Если же по уловию задачи задана только строка чисел, то использовать следующий
//код
while not eoln (input) do
begin
n := n + 1;
read (a[n]);
end;
//Далее для обоих вариантов.
for i := 1 to n do
if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1
end.
