Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов

@программмист · Регистрация: 05.04.2017

Студворк — интернет-сервис помощи студентам

дан масcив в котором N чисел. найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов

@VladimirD · 11.04.2017, 19:38

Pascal

program Project1;
 const n=10;
 var i,sum:integer;
 A:array [1..n] of integer;
begin
  for i:=1 to n do begin
   write('введите A[',i,']'); readln (A[i]);
  end;
   writeln;
   sum:=0;
  for i:=1 to n do
   if A[i]<0 then begin
     writeln ('A[',i,']'); sum:=sum+A[i];
   end;
  writeln ('Сумма отрицательных элементов =',sum);
end.

@программмист 3 / 3 / 0 Регистрация: 05.04.2017 Сообщений: 138
		1
	Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов 11.04.2017, 17:39. Показов 9146. Ответов 1 Метки нет (Все метки) дан масcив в котором N чисел. найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов 0

	11.04.2017, 19:38

Опции темы

Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов

Решение