65 . pascal abc. дан массив размером n×n, элементы которого целые числа. вывести на экран элементы, расположенные под главной и под побочной диагональю. при решении использовать двумерный массив.

если я правильно понял, то

var a: array of array of integer;

n,i,j: integer;

begin

write('введите n: ');

readln(n);

setlength(a,n);

for i: =0 to n-1 do setlength(a[i],n);

for i: =0 to n-1 do

for j: =0 to n-1 do a[i,j]: =random(n)*2;

writeln('вывод матрицы : ');

for i: =0 to n-1 do begin

writeln;

for j: =0 to n-1 do write(a[i,j],' ');

end;

writeln;

writeln('главная диагональ : ');

for i: =0 to n-1 do for j: =0 to n-1 do if (i-j=0) then write(a[i,j],' ');

writeln;

writeln('побочная диагональ : ');

for i: =0 to n-1 do for j: =0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');

readln;

end.

Для подсчёта слов в предложении, вот код: program slova; var   s: string;   r,i: integer; begin   writeln('введите ваше предложение');   readln(s);   s: =s+' ';   for i: =1 to length(s)-1 do   if (s< > ' ') and (s[i+1]=' ') then   r: =r+1;   writeln('в предложении ',r, ' слов. ');   readln; end. какая буква встречается чащеprogram bykv; var s: string;       i,k1,k2: byte; begin       write('введите строку: '); readln(s);       for i: =2 to length(s)-1 do         if s[i]=s[1] then inc(k1)           else if s[i]=s[length(s)] then inc(k2);       writeln('первая буква встречается ',k1);       writeln('последняя буква встречается ',k2);       writeln('вывод: ');       if k1> k2 then writeln('первая буква встречается чаще')         else if k1< k2 then         writeln('последняя буква чаще')           else writeln('одинаково');       readln; end. изменить слово петя на иван в строке program test; var s,t,z,p: string; j: integer; begin writeln('введите ваше предложение'); readln(s); write('введите слово которое хотите заменить: '); readln(t); write('введите замену слову: ', t, ' < > '); readln(z); if pos(t,s)< > 0 then j: =pos(t,s); p: =copy(s,1,j-1); p: =p+z; p: =p+copy(s,j+length(t),length(s)); writeln(p); readln; end.