Программисты, помогите! Pascal abc или PascalABC. NET. Дан массив размером n×n, элементы...

Question

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

Comments

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

---

Совершенное разные принципы программмирования, несовместимые с Pascal ABC. Круче, чем на Питоне. Не смущает?

---

Я так на днях написал одному здесь, потом его страдания полчаса не смолкали. Так что подумайте...

---

Я за язык Вас не тянул)). Ждите, нужно несколько минут.

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество строк/столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(n, n, -99, 99);

 a.Println(4); Writeln(4 * a.ColCount * '-');

 var b := a.Cols.Select(row -> row.Where(t -> t > 0).First).ToArray;

 b.Println

end.

---

Comments

Различия? Ни одна строка кода в Pascal ABC не откомпилируется

---

Pascal ABC - это фактически интерпретатор Turbo Pascal для среды Windows, который был написан на Delphi.

---

Учителя информатики отправить на официальный сайт, который так и называется pascalabc.net - там на главной странице 7 презентаций о том, как нужно писать сейчас на Паскале )))

---

Конечно, если Вы при этом используете не язык PascalABC.NEt, а оставленный для совместимости Turbo/Ree Pascal

---

*Turbo/Free Pascal

---

Только это все равно, что купить BMW и ездить на нем по двору своего дома.

Answer 2

label next;

var a: array of array of integer;

b: array of integer;

i,j,n: integer;

begin

write('Введите  N: ');

readln(n);

setlength(a,n);

setlength(b,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]:=60-random(100);

writeln('Полученный массив: ');

for i:=0 to n-1 do begin writeln;

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

end;

i:=0;

j:=0;

while (i

while (j

if (a[i,j]>0) then begin

b[i]:=a[i,j];

j:=0;

goto next;

end else inc(j);

end;

next: inc(i);

end;

writeln;

writeln('Отобранные данные: ');

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

readln;

end.

Comments

Пришлось задействовать метку

---

label next - инициализирует метку с названием "next". Блок с метками, как var для переменных

---

goto next - перейди на метку "next"

---

next: - место метки "next"

---

Всегда пожалуйста