Задать вопрос Регистрация
Помочь другим

  • удалить из массива все отрицательные элементы и вставить сумму оставшихся элементов (программа в Паскале)

Ответы 1

  • var a:array[1..100] of integer;

    i,s:integer;

    Begin

      randomize;  n:=20;  for i:= 1 to n do begin    a[i]:=random(n*10)- 10*n div 2 ;    write(a[i]:4);    if i mod 10=0 then writeln;

     

        if a[i]>=0 then s:= s+a[i];   end;

     

      for i:= 1 to n do begin

        if a[i]<0 then a[i]:=s;

        write(a[i]:4);    if i mod 10=0 then writeln;

      end;

     

    End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years