помогите сделать циклический метод Дана последовательность из М чисел. Все отрицательные

Помогите сделать циклический метод
Дана последовательность из М чисел. Все отрицательные среди них числа возвести в квадрат и отыскать их сумму

Задать свой вопрос
1 ответ

program SumSeq;

 

APPTYPE CONSOLE

 

uses

  SysUtils;

//const m:Integer  ;

var

  i, j, m, s:Integer;

  n: array of Integer;

begin

  s:=0;

  Writeln(m);

  Writeln('vvedite m');

  Readln(m);

  SetLength(n,m);

  for i:=0 to m do

    begin

      j:=Random(10);

      if jlt;5

         then n[i]:=-1*j

         else n[i]:=j;

      write(n[i], ' ')

    end;

  Writeln;

  Writeln('To continue push gt;gt;ENTER');

  Readln;

 

  for i:=0 to m do

    begin

      if n[i]lt;0

        then s:=s+sqr(n[i])

    end;

   writeln('s=',s);

   readln

 

 

  TODO -oUser -cConsole Main : Insert code here

end.

Поначалу ввожу последовательность через генератор случайных чисел, а потом нахожу сумму отрицательных элементов последовательности.

Проверил трудоспособность программки в Delphi 7.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт