Выручайте!Pascal abc.Дан массив размером n×n, элементы которого целые числа. При решении...

Question

Выручайте!Pascal abc.Дан массив размером n×n, элементы которого целые числа. При решении использовать двумерный массив. {Продолжение условия на фотографии}.

---

Comments

Где брать предлагаете этот Pascal ABC? Разработчки в 2007 году закрыли этот проект и перешли на PascalABC.NET.

---

Нет, они в корне отличаются. Были бы одинаковы, мой вопрос был бы неуместен.

---

m и k вводятся с клавиатуры, как я понял?

Answer 1

var a: array of array of integer;

i,j,n,m,k,c: integer;

begin

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

readln(m);

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

readln(k);

n:=m*k;

setlength(a,k);

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

c:=0;

for i:=0 to k-1 do

for j:=0 to m-1 do begin inc(c); a[i,j]:=c; end;

for i:=0 to k-1 do begin

writeln;

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

end;

readln;

end.

Comments

a[::-1] - реверс массива, например.

---

Питон говорили интереснее, только дальше print решил не идти)

---

(a[1:]+a[0]).ToArray - циклический сдвиг)))

---

(a,b):=(b,a); - обмен значениями

---

Тут даже про swap можно забыть

---

Можно и (a,b,c);=(b,c,a);

---

Уж не говоря о LINQ, итераторах, регулярных выражениях и pattern matching

---

Последнее - это типа case по типам

---

Полезно для работы с обобщенными типами.

---

Это уже немного тяжело для понимания, особенно под ночь :D Спасибо Вам за столь ценные знания