Ввети з клавіатури n будь-яких чисел.З-ти кількість додатніх та від*ємних чисел ЛАЗАРУС
Answers & Comments
Giammy
Код: 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;
Answers & Comments
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;
Оформление: