Функции

[dukesoteg]

Дана последовательность действительных чисел a1; a2; ...; an. Заменить все ее члены, большие данного M, этим числом. Подсчитать количество замен.

Вот эту задачку нужно решить с помощью функций.
Как это исполнить??
(Ввод/вывод должны быть решены с помощью функций)

uses crt;
var a:array[1..50]of real;
                n,i,k:integer;
                        M:real;
begin
clrscr; randomize;
write('n='); readln(n);
write('M='); readln(M);
for i:=1 to n do
begin
a[i]:=random(10)+random;
write(a[i]:5:2);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>M then
begin
k:=k+1;
a[i]:=M;
end;
for i:=1 to n do
write(a[i]:5:2);
 writeln;
 writeln('kol-vo zamen=',k);
 readln
end.

[ROMA2PVT]

Uses
   CRT;
Type
   mas=array[1..50]of real;
var
  a:mas;
  n,i,k:integer;
  M:real;
  
function Vvod(Var a:mas):real;
begin
  clrscr;
  randomize;
  write('Введите количество элементов:=');
  readln(n);
      for i:=1 to n do
          begin
              a[i]:=random(10)+random;
          end;
end;

function Vivod(Var a:mas):real;
begin
   writeln('Исходный массив: ');
      for i:=1 to n do
         begin
            write(a[i]:1:3,' ');
         end;
end;

function zamena(Var a:mas):real;
begin
    write('Введите число для замены: ');
    readln(M);
    k:=0;
       for i:=1 to n do
         if a[i]>M then
            begin
                a[i]:=M;
                inc(k);
            end;
end;

function Vivod2(Var a:mas):real;
begin
    writeln('Результирующий массив: ');
        for i:=1 to n do
           begin
              write(a[i]:1:3,' ');
           end;
           writeln;
           writeln('kol-vo zamen=',k);
end;

begin
   Vvod(a);
   Vivod(a);
   writeln;
   Zamena(a);
   writeln;
   Vivod2(a);
   readkey;
end.

[dukesoteg]

круто! Мб еще это? =) //глазастый котэ из шрека

var a:array[1..100,1..100] of integer;
i,j,n:integer;
begin
write('vvedite razmer matrici: ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i=j) or (j=n-i+1) then a[i,j]:=1 else a[i,j]:=0;
write(a[i,j]:4); end;
writeln; end;
readln;
end.

[ROMA2PVT]

Так:

Uses
   CRT;
Type
   mas=array[1..100,1..100] of integer;
var
  a:mas;
  i,j,n:integer;
  
  function matr(Var a:mas):integer;
begin
Clrscr;
write('vvedite razmer matrici: ');
readln(n);
  for i:=1 to n do
         for j:=1 to n do
               if (i=j) or (j=n-i+1) then
               a[i,j]:=1
               else
               a[i,j]:=0;

end;

function Vivod(Var a:mas):integer;
begin
   writeln('Матрица A: ');
      for i:=1 to n do
         begin
           for j:=1 to n do
              begin
                 write(a[i,j]:4,' ');
              end;
              writeln;
         end;
end;

begin
    Matr(a);
    Vivod(a);
    readkey;
end.

Или вот так:

Uses
   CRT;
Type
   mas=array[1..100,1..100] of integer;
var
  a:mas;
  i,j,n:integer;

  function matr(Var a:mas):integer;
begin
Clrscr;
write('vvedite razmer matrici: ');
readln(n);
  for i:=1 to n do
     begin
       for j:=1 to n do
           begin
              if (i=j) or (j=n-i+1) then a[i,j]:=1
              else a[i,j]:=0;
                write(a[i,j]:4,' ');
           end;
           writeln;
     end;
end;

begin
    Matr(a);
    readkey;
end.