Дан массив Array[1 ... 100]С помощью цикла присвоить, каждому элементу массива значение равное номер элемента умноженный на 3. например для массива А значение элемента А[1]=2, A[2]=6 A[3]=9 и т. д. В конце программа должна выводить на экран сумму всех элементов массива.

program zz1;

const n = 100; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m: array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел, умножая номер числа на три и записываем их в массив

m[i]:=i * 3;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do / / вычисляем сумму элементов

k:=k + m[i];

write (' сумма элементов массива = ', k); / / выводим ответ

end.