Решить задачу.Дана целочисленная матрица A(nxn)...

[Pascal_noob]

Дана целочисленная матрица A(nxn). Все элементы тех столбцов, у кото-
рых обнаружено менее 10 положительных элементов, заменить на элемен-
ты из массива B=(b1, ..., bn).

[vlad1389]

Не надо копировать сюда свои задачи. Если сам не пытаешься решить, ни кто за тебя этого делать не будет.

[Pascal_noob]

Сообщение от vlad1389

Не надо копировать сюда свои задачи. Если сам не пытаешься решить, ни кто за тебя этого делать не будет.

если ты не можешь, не значит что никто не может

[vlad1389]

1) С чего ты решил, что я не могу? У тебя банальный цикл. Только я за тебя не собираюсь писать решение
2) Тут может ещё много народа, но заметь, ни кто не помогает. Угадай, почему. Подсказка. Смотреть мой первый ответ.

[BDA]

Так тут не вопрос "может - не может", а вопрос старания. Вы как-то пробовали решать задачку, имеете какие-то наработки?

[Pascal_noob]

Я решил похожую Дана матрица A(n×n) многоразрядных целых чисел. Найти номер строки и
номер столбца, на пересечении которых находится элемент матрицы, в
значении которого больше всего расположено разрядов.
А заменить эл-ты массива не могу.

Program Lab6;
Uses crt;
const n=10;
type matr=array[1..n,1..n] of longint;
function KolRaz(t:longint):byte;//это функция считает количество цифр(разрядов) в числе
var k:byte;
begin
k:=0;
while t>0 do
  begin
   t:=t div 10;
   k:=k+1;
  end;
KolRaz:=k;
end;
var a:matr;
    i,j,max,imax,jmax:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');
max:=0;
for i:=1 to n do
   begin
      for j:=1 to n do
        begin
          a[i,j]:=random(100000);
          if KolRaz(a[i,j])>max then
             begin
               max:=KolRaz(a[i,j]);
               imax:=i;
               jmax:=j;
             end;
           write(a[i,j]:8);
         end;
      writeln;
   end;
write('Stroka ',imax,'  Stolbec ',jmax);
readln
end.

[Dvoishnik]

заменить так

var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,
inСolMin:integer; // индекс столбца в котором нужно провести замену.

.............
for i:=1 to n do
 a[inСolMin,i]:=b[i];

[Pascal_noob]

Не могли бы вы пожалуйста написать общий вид программы?

Сообщение от Dvoishnik

заменить так

var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,
inСolMin:integer; // индекс столбца в котором нужно провести замену.

.............
for i:=1 to n do
 a[inСolMin,i]:=b[i];

[Dvoishnik]

общий вид программы? без проблем

uses 
............
const
...............
type
.............
var
...........
{описание процедур и функций}
........................
Begin
..........
........
.........
end.

а написать программу за вас? увольте.

[Pascal_noob]

Занятно.. http://www.cyberforum.ru/pascal/thread12999.html
Лицемер

Сообщение от Dvoishnik

общий вид программы? без проблем

uses 
............
const
...............
type
.............
var
...........
{описание процедур и функций}
........................
Begin
..........
........
.........
end.

а написать программу за вас, увольте.