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

Код:
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;   

Оформление:

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38

Овощи и фрукты, которые мы покупаем в супермаркетах, скорее всего, обрабатывали химическими веществами, чтобы увеличить срок хранения. Свой негативный вклад могли внести сборщики плодов, также существует вероятность, что они пострадали при транспортировке.

Поэтому простого мытья проточной водой перед их употреблением явно недостаточно. Чтобы не нанести вреда организму и не ухудшить состояние собственного здоровья, необходимо обработать свежие фрукты и овощи таким образом, что полностью смоются остатки химических препаратов, а также возможные бактерии и вирусы, объясняет Joinfo.com

Традиционный метод – мытье водой с яблочным уксусом. Для этого наполните большую салатницу водой и добавьте туда яблочный уксус (правильные пропорции – по столовой ложке уксуса на литр воды). Оставьте овощи или фрукты в уксусной воде на пять минут, а затем тщательно смойте липкие загрязнения. В случае картофеля, моркови или пастернака не возбраняется использовать чистую щетку. Останется тщательно сполоснуть продукты под струей холодной воды.