Реферат: Процедуры и функции

3.2. Текст программы

PROGRAM SEM2;

uses crt;

const Nmax=10;

Mmax=10;

Kmax=100;

type matr=array[1..Nmax,1..Mmax] of integer;

vector=array[1..Kmax] of integer;

var A:matr;

C:vector;

Na,i,j,Ma,Nc,k,M:integer;

Procedure Vvod(var x:matr; var Nx,Mx:integer; P:char);

begin

clrscr;

write('Vvedite N: ');

read(Nx);

writeln;