Question

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

Answer 1

Код:
procedure TForm1.Button1Click(Sender: TObject);
var kolo,kolp,i,n:integer;
a:array[1..1000] of integer;
begin
n:=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;   

Оформление: