Program minus;
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.
Ну как-то так у меня вышло на скорую руку
Я в этом не особый спец но я думаю что произодительность увеличится в шесть раз
Компьютерная программа, позволяющая проводить вычисления с данными,
представленными в виде двухмерных массивов, имитирующих обычные
таблицы.
автоматизация вычислений;
представление результатов вычислений в виде диаграмм;
моделирование, когда исследуется влияние одних параметров на другие