массивы , вывод stringrid

[undead92]

никак не могу разобраться с заданием, результаты должны выводиться в stringrid


В одномерном массиве, состоящем из вещественных элементов, вычислить:

1. количество отрицательных элементов массива между первым положительным и последним положительным элементом массива;

2. сумму модулей элементов массива, расположенных после минимального по модулю элемента.

3. Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию.

4. Из элементов массива сформировать массив А той же размерности по правилу: если номер i элемента четный, то значение элемента находится по формуле Аi = Di2, если нечетный, то по формуле Ai = Di / i.

[undead92]

Товарищи программисты! неужели никто не знает? даже пару пунктов?

[Manik]

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

[undead92]

stringrid,вставил кнопку,не получился даже 1 пункт, там массив считается между первым и последним както так код

1)

var
a,razn:integer;
begin
i=0
for a[i]>0 1 to 10;
razn:razn+1;
вывести в стрингрид [0,1]
end;

[Manik]

var i,k1,k2,n,kol:integer;
arr1:array of real;

begin
  {вводим матрицу}
  write('Введите размер матрицы --> '); readln(n);
  SetLength(arr1,n);
  write('Введите ', n,' элементов вектора --> ');
   for i :=0 to n-1 do read(arr1[i]);
  writeln('Вы ввели вектор: ');
   for i :=0 to n-1 do write(arr1[i]:5:2);writeln;
   {ищем первыЙ положительный (k1) }
   for i :=0 to n-1 do
    if arr1[i]>0 then  begin
     k1:=i;
     break
    end;
   {ищем последний положительный (k2) }
   i:=n-1;
   while i>=0 do begin
    if arr1[i]>0 then  begin
     k2:=i;
     break
    end;
    dec(i)
   end;
   {считаем количество нужных элементов}
    kol:=0;
     for i:=k1 to k2 do begin
      if arr1[i]<0 then
       kol:=kol+1
        end;
        Writeln('кол-во эл-тов ', kol);
   readln;
   readln
end.;

в консоли получилось вот так...
смысла выводить этот результат в StringGrid не вижу...
но если надо, всё просто)

StringGrid.Cells[0]:=IntToStr(kol);

[Manik]

всё работает)

[undead92]

Спасибо вам люди, век вас не забуду!