Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дано 10 чисел вывести сумму отрицательных элементов массива

Ответ оставил Гость

Программа на Pascal

program xxx;
var a: array [1..10] of integer;
   i, s : integer;
begin
  writeln ( введите элементы массива);
  for i:=1 to 10 do
    readln (a[i]);
  s:=0;
  for i:=1 to 10 do
    if a[i] < 0 then s:=s+a[i];
  if s=0 then wrwteln ( отрицательный чисел - нет)
     else writeln (сумма отриц. чисел=. s)
end.