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

UptoLike

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

Рубрика:

begin

for j := 1 to M do

write(f, a[i,j]:4, ‘ ‘);

writeln(f);

end;

{Закрываем файл}

close(f);

…

Формат файла OUT.TXT

Первая строка

Вторая строка

…

Последняя строка

Вычисление суммы и среднего арифметического элементов массива

Задача 10: Подсчитать сумму элементов массива.

Приведем полный текст программы – решение этой задачи:

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

const

N = 5; {Количество строк в массиве}

M = 5; {Количество элементов в каждой строке массива}

Const

{Обрабатываемый массив}

a : array [1..N, 1..M] of integer = (

(1, 1, 1, 1, 1),

(1, 2, 3, 2, 1),

(1, 3, 4, 3, 1),

(1, 2, 3, 2, 1),

(1, 1, 1, 1, 1)

);

var

i, j : integer; {Индексы: i - счетчик строк, j - счетчик столбцов}