Курсовая работа: Средства языка программирования Паскаль для решения математических задач

да

нет

нет

да

нет

да

нет

да

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

Program kkr1_3;

var

Matrix:array [1..50,1..50] of integer;

i,j,K:byte;

sum:integer;

key:char;

begin

Writeln('Программа ищет сумму элементов матрицы, находящихся над и под ее диагоналями.');

Writeln;

{------------------------------------------------------------------------}

{Определение размерности матрицы}

repeat

Writeln('Введите размерность матрицы (K<=50): ');

readln(K);

if ((K<=1) or (K>50)) then

begin

writeln('Такая размерность невозможна по условию.');

writeln('Повторите ввод.');

end;

until ( (K>1) and (K<=50) );

{------------------------------------------------------------------------}

{Ввод матрицы}

writeln(‘Введите матрицу’);

for i:=1 to K do