Программисты, помогите! Pascal abc или PascalABC. NET. Дан массив размером n×n, элементы которого целые числа. Для каждого столбца найти первый положительный элемент и записать данные в новый массив. При решении использовать двумерный массив.
Ответы
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.
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<n) do begin
while (j<n) do begin
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.