Напишите программу (паскаль) нахождения суммы элементов массива А[1:50], заполненного числом 1.

Question

Информатика

Фабиана

19 августа, 23:09

Напишите программу (паскаль) нахождения суммы элементов массива А[1:50], заполненного числом 1.

+4

Ответы (1)

Знаете ответ?

Петрака · Answer 1

Var

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

i, S:integer;

Begin

For i: = 1 to 50 do

Begin

A[i]:=1;

Write (A[i],' ') ;

S:=S+A[i]

End;

WriteLn;

WriteLn ('S = ', S)

End.