Question

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

Answer 1

Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
end.

или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
   begin
         A[i]:=i*3;
        S:=S+A[i];
  end;
Writeln('сумма элементов массива= ',s);
end.

Answer 2

Для решения данной задачи можно использовать цикл for. Начнем с объявления массива Array и переменной sum, которая будет хранить сумму всех элементов массива:

var Array: array[1..100] of integer;
sum: integer;

Затем, с помощью цикла for, присвоим каждому элементу массива значение, равное номеру элемента, умноженному на 3:

for i := 1 to 100 do
begin
  Array[i] := i * 3;
end;

Далее, с помощью цикла for, просуммируем все элементы массива и запишем результат в переменную sum:

sum := 0;
for i := 1 to 100 do
begin
  sum := sum + Array[i];
end;

Наконец, выведем на экран значение переменной sum:

writeln('Сумма всех элементов массива: ', sum);

Полный код программы:

var
  Array: array[1..100] of integer;
  sum: integer;
  i: integer;

begin
  for i := 1 to 100 do
  begin
    Array[i] := i * 3;
  end;

sum := 0;
  for i := 1 to 100 do
  begin
    sum := sum + Array[i];
  end;

writeln('Сумма всех элементов массива: ', sum);
end.

После выполнения программы на экран будет выведено значение суммы всех элементов массива.