Помогите пожалуйста решить задачу!!! на паскале
вот условие:

Массив
В массиве 4 на 4 напечатать сколько положительных,отрицательных и нулевых элементов содержится в каждом столбце

заранее спасибо!!!

program Arr;
var a:array[0..3,0..3] of integer;
    i,j:integer;
    plus,minus,nul:integer;
begin
 //Гдето здесь нужно заполнить массив числами
  for i:=0 to 3 do
  begin
    for j:=0 to 3 do
    begin
      if a[j,i]>0 then inc(plus);
      if a[i,j]<0 then inc(minus);
      if a[i,j]=0 then inc(nul);
    end;
  Writeln('V ',i+1,' Stolbce: ',plus,' pologitelnyh elementov,',
  minus,' otricatelnyh i ',nul,' nulevyh elementov');
  plus:=0;
  minus:=0;
  nul:=0;
  end;
  readln;
end.

Мне кажется, что такой алгоритм будет быстрее. Заменить

     if a[j,i]>0 then inc(plus);
     if a[i,j]<0 then inc(minus);
     if a[i,j]=0 then inc(nul);

на такие три строки

     if a[j,i]>0 then inc(plus) else
     if a[i,j]<0 then inc(minus) else
     inc(nul);

Понятно, что в такой задаче это нельзя заметить, однако если решать задачи олимпиадного уровня, то это значительно упростит алгоритм, я это уже на себе испытал

Для: programmer
Не сомненно,просто для человека,который спрашивает про такие вещи явно будет сложнее понять алгоритм,который быстрее работает

ПОМОГИТЕ МНЕ ПЛИЗ....
ВОТ ЛАБА ПО ИНФОРМАТИКЕ В СРЕДУ УЖЕ А НА ЗАЧЕТ НАДО 13 ЗАДАЧ ИЗ 20 С ПОДРОБНЫМИ КОММЕНТАРИЯМИ - А Я В ПАСКАЛЕ НЕ СЕКУ ВООБЩЕ...

ПИШИТЕ НА youknowwhoiam@mail.ru ИЛИ В АСЮ 241861817 Я ОТОШЛЮ ВАРИАНТ........

ПОМОГИТЕ ПОЖАЛУЙСТА - ЕСЛИ НЕ ВЫ, ТО МНЕ КРАЙ!!!

MarkF, армия вас ждет

Guest, programmer прироста в скорости можно добиться так же заменив вызов процедуры Inc соответствующим оператором присваивания

Да мне армия не грозит - а вот отчисление грозит...

Закос готов? Сколько готов за задачи выложить или ты как истинный студент халяву ищешь?

Для: Maniacosaur Вообще-то хотелось бы халявы - но бутылку пива обещаю....тем более для чела который в этом разбираеться это совсем по-моему не сложно....

НУ ЧТО КТО МНЕ ПОМОЖЕТ?

Ну что поможите мне?

А что не понятно-то? Напиши конкретно

Ну хоть кто-то помочь решил!

Ура! Товарищи! Благотворительность победила!

Да погоди радоваться то
Насколько я понял, тебе уже ответили - могу, как и другие накрутить что-то...
Вот и спрашиваю: в чем проблемы (кроме денег...)

Ой.....Молодой человек....
Я тута как и Вы сторонний любопытствующий...
Тож помочь пытаюся....Тока чем никак выяснить не могу!

Ясно, видно читал невнимательно
Но не такой-то, к сожалению, молодой, как холтелось бы

Невнимательность не порок!

Борис, ты следишь за мной? Так ты написал такие проги что я мозг сломал и то не разобрался - для чайников писать надо было.........ну всеравно ОГРОМНОЕ тебе спасибо.....да нашел я добровольцев которые откликнулись на мою беду и помогли СПАСИБО ВСЕМ КТО ПОМОГ И ПОМОГАЕТ!!!!!

Да, времени было маловато - заочники нахлынули.
Собираюсь продолжить выпуски рассылки по программированию на Паскале:
]]>http://www.borlpasc.narod.ru/rass.htm]]>
Вот там тогда и объясню