Основы программирования на языке Turbo Pascal. Беляева И.В. - 68 стр.

UptoLike

Составители:

Рубрика:

s : longint; {Сумма элементов массива}

begin

{Подсчет суммы элементов массива}

s := 0; {Инициализация суммы}

for i := 1 to N do

for j := 1 to M do

s := s + a[i,j]; {Накопление суммы всех элементов}

{Вывод массива в виде таблицы (матрицы)}

writeln; {Вывод пустой строки}

for i := 1 to N do {Все строки}

begin

for j := 1 to M do

write(a[i,j]:4); {Выводятся все элементы каждой строки}

writeln; {Курсор переводится на следующую строку}

end;

{Вывод суммы элементов массива}

writeln('S = ', s);

end.

Задача 11: Вычислить среднее арифметическое элементов массива.

Фрагмент программы:

…

Var

s : Longint; {Сумма элементов массива}

sa : real; {Среднее арифметическое элементов массива}

…

Begin

…

s := 0; {Инициализация суммы}

for i := 1 to n do

for j := 1 to m do