Ввети з клавіатури n будь-яких чисел.З-ти кількість додатніх та від*ємних чисел
ЛАЗАРУС

Код:procedure TForm1.Button1Click(Sender: TObject);var kolo,kolp,i,n:integer;a:array[1..1000] of integer;beginn:=Memo1.Lines.Count;kolo:=0;kolp:=0;for i:=1 to n do begin  a[i]:=StrToInt(Memo1.Lines[i-1]);  If a[i]>0 then Kolp:=kolp+1;  If a[i]<0 then kolo:=kolo+1; end; ShowMessage('Количество положительных: '+IntToStr(kolp)); ShowMessage('Количество отрицательных: '+IntToStr(kolo));end;   Оформление: