Дан массив целых чисел, состоящий из 13 элементов. Заполнить его с клавиатуры. Найти сумму отрицательных элементов массива. С помощью оператора repeat.

Question

Информатика

Тема

25 июля, 09:00

Дан массив целых чисел, состоящий из 13 элементов. Заполнить его с клавиатуры. Найти сумму отрицательных элементов массива. С помощью оператора repeat.

+1

Ответы (1)

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

Никодим · Answer 1

Var A:array[1 ... 13] of integer;

i, S:integer;

begin

for i:=1 to 13 do begin

Write ('A[', i,']=') ; Readln (a[i]) ;

end;

i:=1

repat

if a[i]<0 then S:=S+a[i];

i:=i+1;

until i<=0;

Writeln (s) ;

end.