Регистрация
Чай24
29.09.2020 17:37
Информатика
Есть ответ 👍

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

287
322
Посмотреть ответы 2

Ответы на вопрос:

vichkapetrenko
vichkapetrenko
4,7(68 оценок)

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.

Danelpos
Danelpos
4,5(7 оценок)
Сто пудово латинских 

Популярно: Информатика