Получить ответ

Шумакова Мария 0 отзывов Рейтинг: 410 Общаться в чате program massiv; uses crt; const N=10; type x=array [1..N] of integer; var a:x; i:integer; s:integer; begin clrscr; randomize; for i:=1 to N do begin a[i]:=-100+random(201); write (A[i]:5) end; writeln; s:=0; for i:=1 to N do if a[i]<0 then  begin s:=s+a[i] end; writeln('Сумма отрицательных элементов массива=',s:5); readln end. Добрый день. Меня заинтересовал ваш ответ "program massiv;uses crt;const N=10;type x=array [1..N] of integer;var a:x;i:integer;s:integer;beginc..." на вопрос http://www.liveexpert.org/topic/view/1030589-poluchit-odnomernij-massiv-sluchajnih-chisel-polozhitelnih-i-otricatelnih-poschitat-summu-tolko-otricatelnih. Можно с вами обсудить этот ответ? Обсудить с экспертом 20.04.14

Еva 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы