нужно решение!

[nolx]

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

[Grag]

Сообщение от nolx

количество отдельных элементов матриц

Это как это???

[nolx]

надо решить как подпрограммой!

[Sasha_Smirnov]

...и как подпрограммер!.. А языком владеете каким?

[nolx]

всмысле языком???? знаете как решить??

[Stilet]

Знаем.
Например так:

MODULE Матрица;
IMPORT StdLog,ObxRandom;
VAR  e:ARRAY(5) OF ARRAY(5) OF INTEGER;o: INTEGER;

PROCEDURE ВыводМассива;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(e)-1 DO 
  FOR j:=0 TO LEN(e[i])-1 DO
    e[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
    IF (i MOD 2=0)&(j MOD 2=0) THEN INC(o);END;
    StdLog.Int(e[i,j]);
    StdLog.Tab;
  END;
  StdLog.Tab;
  StdLog.String("Здесь ");StdLog.Int(o);StdLog.String(" Положительных")
  StdLog.Ln;
 
 END;
END ВыводМассива;


PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN

 StdLog.Clear;
 ВыводМассива;

END do;

END Матрица.
Матрица.do;

Это навскидку ...

[nolx]

напиши на Паскале пожалуйста!

[Stilet]

nolx

А раньше не судьба была точное задание поставить?
Я напишу первое, второе ты по аналогии:

VAR o,i,j:INTEGER;e:array[1..5,1..6] of integer;
BEGIN
 FOR i:=1 TO 5 DO begin
  FOR j:=1 TO 6 DO begin
    e[i,j]:=200-random(100);
    IF (i MOD 2=0)and(j MOD 2=0) THEN INC(o);
    Write(e[i,j]);
  END;
  writeln;('Здесь ',o,' Положительных');
 END;
  readln;
end.

[Grag]

Согласно первому заданию, в программе достаточно проверять на четность только строки матрицы...

if (not odd(i)) and (e[i,j]>0) then