QBasic Одномерный массив

[Алексей08-]

Привет Всем! У меня возникла проблема! Помогите решить задачи! Для когото может и легко но я в этом деле валенок.
1.Задача- Дан одномерный массив Xn. Найти количество элементов массива, значение которых больше его индекса. Вывести на экран сумму всех элементов массива, имеющих дробную часть.
2.Задача- Дан одномерный массив Yn. Найти второй элемент, значение которого по модулю >5. Сделать инверсию исходного массива (первый с последним, второй с предпоследним и т.д.).
3.Задача- Вывести на экран номера тех столбцов, где нет ни одного нулевого элемента.
4.Задача- Сформировать одномерный массив, состоящий из нулевых разностей максимального и минимального элемента в каждом столбце матрицы X n,m.
За ранее всех благодорю!!! Выручите пожалуйсто.

[Zeraim]

1:
For i := 1 to n do if a[i]>n then t:=t+1; {t чило элементов > n}

2:
For i := 1 to n do begin
 if a[i]<0 then m:= a[i]*(-1)
  else
  m:=a[i];
 if m>5 and t<1 then t:=1
  else
  m:=a[i]; {искомый 2ой по счету элемент больше 5 по модулю}
end;
For i:=1 to n do x[(n+1)-i] := a[i]; {x[i] искомый инверсированный массив}

3:
For y:=1 to m do begin
 For x:=1 to n do begin
 if a[y,x]<>0 then n[y]:=1 {кажды элемент соответсвует столбцу, 1 - нету нулей, 0 есть}
  else
  n[y]:=0;
  break;
 end;
end;

А 4 задание непонел. Тут только алгоритмы, остальное думаю сам допишеш, если где ощибка извини.

[Алексей08-]

Огромное при огромное спасибо!Выручил! Если где в москве живеш могу пивом угостить!!!Спасибо

[Zeraim]

ТТ я сослепу незаметил _) Тебе в беисике надо? Если да то ето дельфи, но надеюсь поможет, думаю синтаксис перправить сможеш

[Алексей08-]

Спасибо еслиб я еще понимал что такое синтаксис

[Алексей08-]

Может кто нибудь в бейсик сделает

[Алексей08-]

Ато я не понимаю! сежня здавать уже надо!