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

Question

Информатика

Валюся

11 января, 12:09

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

+1

Ответы (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.