Учеба и наука

• Всего ответов: 1


Шумакова Мария
66-й в Учебе и науке
0 отзывов
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.
апрель 20, 2014 г.

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