массив

[Риндера]

Сообщение от Serge_Bliznykov

Риндера, да ну? Всё так просто?

Эпик фэйл Т_Т Я была в состоянии аффекта...

[alex22527]

ещё вопрос ,а как она выглядит в форме подпрограммы-функции?

[ROMA2PVT]

Uses
 CRT;
Type
  mas=array[1..50] of integer;
var
 a:mas;
 i,n,kol:integer;
 
function xz(Var b:mas):integer;
begin
kol:=0;
for i:=1 to n do
begin
 if a[i]<0 then
  break
   else
    inc(kol);
end;
writeln;
if kol<>0 then
 writeln('Kol:=',kol)
else
 writeln('Отрицательный элемент первый');
end;

begin
ClrScr;
write('Введите кол-во элементов: ');
repeat
 readln(n);
until n<50;
randomize;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
end;
xz(a);
readkey
end.

[alex22527]

ROMA2PVT спасибо большое!!!!!!!!!!