Массивы

[ScoPld]

Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве фактических параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах нежелательно. Вывод результатов работы подпрограмм должен выполняться в главной программе.
1. Сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент (оформить в виде процедуры или функции).
2. Найти минимальный по модулю элемент массива, его индексы. (оформить в виде функции).

[Stilet]

MODULE mass;
IMPORT StdLog;
CONST n=4;m=4;
VAR a:ARRAY(n) OF ARRAY(m) OF INTEGER;

PROCEDURE min;
VAR ai,aj,i,j:INTEGER;b:BOOLEAN;
BEGIN ai:=0;aj:=0;
 FOR i:=0 TO LEN(a)-1 DO b:=FALSE;
  FOR j:=0 TO LEN(a[i])-1 DO
   IF a[i,j]<a[ai,aj] THEN ai:=i;aj:=j; END; 
  END; 
 END; StdLog.Ln;
 StdLog.String('Min element ');
 StdLog.Int(ai);StdLog.Tab;StdLog.Int(aj);StdLog.Tab;
 StdLog.Int(a[ai,aj]);
END min;

PROCEDURE summ(n:INTEGER):INTEGER;
VAR s,i:INTEGER;
BEGIN
 s:=0;
 FOR i:=0 TO LEN(a[n])-1 DO s:=s+a[n,i];END;
 RETURN s;
END summ;

PROCEDURE Fill;
VAR i,j:INTEGER;b:BOOLEAN;
BEGIN StdLog.Clear;
 FOR i:=0 TO LEN(a)-1 DO b:=FALSE;
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=-i+j;StdLog.Int(a[i,j]);StdLog.Tab;
   IF a[i,j]<0 THEN b:=TRUE; END; 
  END; IF b THEN StdLog.Tab;StdLog.Int(summ(i));END;   
  StdLog.Ln;
 END;
END Fill;

PROCEDURE do*;
BEGIN
 Fill;min;
END do;

END mass.

Сойдет?

[ScoPld]

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

[Stilet]

это у меня как курсовая работа идет

Чет мельчают нынче курсачи... В мое время это и на лабораторку бы не потянуло.

[ScoPld]

Вообщем сказали, что для FreePascal не катит это((