Найти сумму элементов массива, начиная с первого положительного. паскаль

Question

Информатика

Стефа

9 июня, 07:03

Найти сумму элементов массива, начиная с первого положительного. паскаль

+5

Ответы (1)

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

Ким · Answer 1

Const

K = 13;

Var

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

i, S:integer;

Begin

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

For i: = 1 to K do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

End;

S:=0;

i:=0;

Repeat

i:=i+1;

if A[i]>0 then

Repeat

S:=S+A[i];

i:=i+1

Until i>K;

Until i>=K;

WriteLn;

WriteLn ('S = ', S) ;

End.