Информатика 1 курс Паскаль

@Богдан 20110 · Регистрация: 09.01.2011

Пожалуйста помогите немогу сделать 1 курс!Мне нужно переделать эту программу так чтоб она работала через функции.Подрлбное условие ниже.

Pascal

Program Lab_4;
uses crt;
var a : array [1..5,1..5] of longint;
    i,j,n: longint;
procedure prisvoi;
begin
 for i:=1 to 5 do
 for j:=1 to 5 do
end;
procedure print;
begin
 textcolor(7);
 for i:=1 to 5 do
  begin
   writeln;
   for j:=1 to 5 do write(a[i,j],' ');
  end;
 writeln;
end;
 begin
  clrscr;textcolor(10);
  write('Введите кол-во элементов таблицы N*N N=');readln(n);
  for i:=1 to 5 do
   for j:=1 to 5 do
    begin
     write('a[',i,',',j,']=');readln(a[i,j]);
    end;
 for i:=2 to n do
   for j:=N-i+2 to n do a[i,j]:=0;
    print;prisvoi;
readln;
end.

Найти нулевые элементы матрицы А [5,5] под диагональю, противоположной главной.
а. Функция: Выполнение условия задания.
Формальные параметры: Индекс элемента.

Опции темы