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

readln;

write('вывести на экран номер столбца большей суммы', p3);

readln(p3);

end;

end;

end.

end.

6. Заполнить матрицу по образцу:

0

0

0

0

program zadacha_6;

uses crt;

var

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

n:integer;

i,j,k:integer;

begin

clrscr;

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

readln (n);

k:=0;

for i:=1 to n do

for j:=1 to n do

if i=j then

begin

a[i,j]:=k;

k:=k+1;