Регистрация
makssssimfrank
30.03.2020 07:55
Информатика
Есть ответ 👍

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

191
385
Посмотреть ответы 2

Ответы на вопрос:

mrdruss
mrdruss
4,5(28 оценок)

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

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.

TimLih990
TimLih990
4,4(63 оценок)

print(10%2)#выведет 0

print(10+2)#выведет 12

print(31*2)#выведет 62

print(13-1)#выведет 12

print(100//10)#выведет 10

print(211/10)#выведет 21.1

Написал с принтами, чтобы Вам удобнее было проверять, если нужны только выражения:

10%2

10+2

31*2

13-1

100//10

211/10

Популярно: Информатика