Задачка в Delphi

[миха18]

Не знаю, как делать 3,4 и 5 пункты. Кто может помочь?

Разобрать программу и выполнить:
1) Ввести размерность квадратной матрицы N;
2) Двумя способами ввести элементы:
а) с клавиатуры;
б) с помощью random(k) (генератор случайных числе) в диапазоне 0..(К-1)
диапазон чисел [-50;50]
y:= random (101) -50
3) построить треугольную матрицу, получающуюся в результате выделения элементов ниже побочной диагонали, включая её.

4)Распечатать полученную матрицу
5)Вычислить положительное среднее арифметическое значение полученной матрицы.

[VadEr]

Номер 2,3 и 4:

program massiv;
const
  N=10;
var
  mas  :array[1..N,1..N] of integer;
  i, j :byte;
begin
Writeln('Before:');
{генерируем массив}
Randomize;
for i:=1 to N do
  for j:=1 to N do
    begin
       mas[i,j] := Random(101)-50;
       write(mas[i,j]:3,' ');
             if j=N then writeln
    end;
{обнуляем элементы выше диагонали}
for j:=1 to N do
    for i:=N downto 1 do
         if i<>j then mas[i-j,j] := 0;
{Выводим результат}
Writeln;
Writeln('After:');
for i:=1 to N do
    for j:=1 to N do
        begin
          Write(mas[i,j]:3,' ');
          if j=N then writeln
        end;
Readln
end.

Сообщение от миха18

4)Распечатать полученную матрицу

Это в смысле на принтер, на экран или в файл?

[миха18]

это на экран

[Juffin]

это надо именно в Дельфи, или в Турбо Паскале?

[миха18]

В принципе разница не существенна. Но лучше в Турбо Паскале.

[VadEr]

Сообщение от миха18

5)Вычислить положительное среднее арифметическое значение полученной матрицы.

Это ср. арифм. только положительных элементов труегольной матрицы или всех, но результат взят по модулю?

[миха18]

Это среднее арифметическое только положительных элементов.

VadEr можете помочь с 5 пунктом, очень нужно!!!

[VadEr]

№ 2-5;

program massiv;
const
  N=10;
var
  mas  :array[1..N,1..N] of integer;
  i, j, k1, k2 :byte;
  sr_Arif :real;
  S :integer;
function sum(i:integer):integer;
begin {функция для расчета кол-ва элементов треугольной матрицы}
	if i>1 then sum := i + sum(i-1)
	else sum := 1;
end;  
  
begin
Writeln('Before:');
{генерируем массив}
Randomize;
for i:=1 to N do
  for j:=1 to N do
    begin
       mas[i,j] := Random(101)-50;
       write(mas[i,j]:3,' ');
             if j=N then writeln
    end;
{обнуляем элементы выше диагонали}
for j:=1 to N do
    for i:=N downto 1 do
         if i<>j then
           mas[i-j,j] := 0;
{Выводим результат}
k1 := Sqr(N) - sum(N); {кол-во элементов кот-е не вошли в треугольник}
k2 := 0; S := 0;
Writeln('After:');
for i:=1 to N do
    for j:=1 to N do
        begin
          Write(mas[i,j]:3,' ');
          if mas[i,j] >=0 then
          	begin
          	  Inc(k2); {кол-во положительных элементов в квадратной матрице}
          	  S := S + mas[i,j]; {сумма положительных эл-ов в квадратной матрице}
          	 end;
          if j=N then writeln
        end; {т.к. в противоположном треугольнике нули они не влияют на сумму, поэтому от кол-ва положит. эл-ов просто вычитаем элементы не вошедшие в треугольник}
Writeln; Writeln('Sred. (+)Arifmet: ',S/(k2-k1):3:2);
Readln
end.

[миха18]

Спасибо большое!!!!
Тему можно закрывать