  {Заголовок программы}

ProgramM TURBO_PAS_41;

Var {оператор начала описания переменных и массива}

I, n: Integer; ss, s1, s2: real; {описания переменных }

A, B: array[1...20] of real;{описания массивов }

BEGIN {Начало программы}

{Ввод исходных данных}

Write(‘Введите значение N ’); ReadLn(N, M);

{Ввод исходных массивов}

FOR I:= 1 TO N DO{оператор цикла}

Begin {Открывающая операторная скобка}

Write(‘Введите элемент A[‘,I,’]= и B[‘,I,’]’);

ReadLn(A[I], B[I]); {непосредственный ввод}

End; {Закрывающая операторная скобка}

{Решение задачи}

S1:= 0; S2 = 0; SS = 0;

FOR I := 1 TO N DO

Begin

S1 := S1 + A[I];{Вычисл. суммы первого вектора}

S2 := S2 + B[I];{Вычисл. суммы второго вектора }

End;

SS := S1/ N + S2/N; {Вычисление среднего значения}

{ Вывод исходных данных и вывод результатов }

WriteLn(‘Число элементов в массивах N=’, N );

WriteLn;{пустой оператор вывода, для пропуска строки}

WriteLn(‘Вывод массивов А и В по формату в 2 столбца);

FOR I := 1 TO N DO

Write( A[I]:8:2, B[I]:8:2,);{вывод по формату в 2 столбца}

WriteLn;{пустой оператор вывода, для перевода строки}

WriteLn(‘Вывод результата решения’);

WriteLn(’Sср = ‘,SS:6:2, ‘ S1 = ‘,S:8:2, ‘ S2 = ‘,S:8:2,);

END. {Конец программы END с точкой}

ПРИМЕЧАНИЕ

1).Пустой оператор WritenLn предназначен для перевода печати матрицы на новую строку.

2). S:8:2 – это вывод по формату, где:

8 – общее число отводимых знаков под число, а

2 – число знаков под дробную часть

3). Если вывод сделан без формата, то вещественное число

выводится в форме с плавающей точкой, т.е. когда точка

фиксируется после первой значащей цифрой числа, а запись Е-02 начинающеяся с латинской буквы , Е (порядок числа) говорит о том, что точку надо сместить на два знака вправо.

ОБЯЗАТЕЛЬНО приводится Распечатка с введенными данными и результатами

2