Предмет: Информатика, автор: poshanimal57402

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

Ответы

Автор ответа: Burxon21
0
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.
  
Похожие вопросы
Предмет: Математика, автор: stepangrigorev43
Предмет: Математика, автор: КатяПазыч1