Курсовая работа: Массивы в языке Паскаль

for i:=1 to n do

for j:=i+1 to n do

begin

if j>=i then

begin

s:=s+a[i,j];

end;

end;

writeln('s=',s);

readln;

end.

9. Дана вещественная матрица размерности n*m. Удалить k столбец матрицы.

program zadacha_9;

uses crt;

var

a: array [1..100,1..100] of real;

b: array [1..100,1..100] of real;

i,j: integer; {переменные счётчики}

n,m: integer; {количество строк и столбцов в массиве}

k: integer; {№ строки которую необходимо удалить}

begin

clrscr;

write ('Введите количество строк в массиве');

readln (n);

write ('введите количество столбцов в массиве');

readln (m);

write ('Введите № строки которую надо удалить');

readln (k);

randomize; {ввод массива случайных чисел}