Напишите программу, которая вычисляет суммы элементов массива А[1:50], заполненного числами 1,3,5,7,9

Question

Информатика

Фока

1 октября, 08:54

Напишите программу, которая вычисляет суммы элементов массива А[1:50], заполненного числами 1,3,5,7,9

+1

Ответы (1)

Знаете ответ на вопрос?

Петуша · Answer 1

Var

A:array[1 ... 50] of integer;

i, S:integer;

Begin

Write ('Исходный массив: ') ;

For i: = 1 to 50 do

Begin

A[i]:=2*i-1;

Write (A[i],' ') ;

S:=S+A[i];

End;

WriteLn ('S = ', S)

End.