Question

Дан массив m*n. Определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Только через паскаль ABC) СПАСИБО!!!

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 uses crt; const nmax=20; var a:array[1..nmax,1..nmax]ofinteger;     m,n,i,j,kp,ko:byte;     f:boolean; begin clrscr; randomize; repeatwrite('Количество строк до ',nmax,' n='); readln(n); until n in[1..nmax]; repeatwrite('Количество столбцов до ',nmax,' m='); readln(m); until m in[1..nmax]; writeln('Исходная матрица:'); for i:=1to n do  begin    for j:=1to m do     begin      a[i,j]:=random(20)-9;      write(a[i,j]:4);     end;    writeln;  end; writeln; f:=false; j:=1; while(j<=m)andnot f do  begin   kp:=0;ko:=0;   for i:=1to n do   if a[i,j]>0then inc(kp)   elseif a[i,j]<0then inc(ko);   if ko=kp then f:=true   else inc(j);  end; writeln('Есть ли в матрице столбец с равным числом'); writeln('положительных и отрицательных элементов?'); write(f); readlnend.

 

Answer 2

Для решения данной задачи в языке программирования Pascal можно использовать следующий алгоритм:

1. Создать двумерный массив m*n. 2. Пройти по каждому столбцу массива и подсчитать количество положительных и отрицательных элементов. 3. Если найден столбец, в котором количество положительных и отрицательных элементов равно, вывести сообщение о том, что такой столбец существует. 4. Если такого столбца не найдено, вывести сообщение о его отсутствии.

Пример кода на Pascal:

program CheckColumn;
var
  arr: array[1..100, 1..100] of integer;
  m, n, i, j, positiveCount, negativeCount: integer;
  columnFound: boolean;
begin
  // Ввод размеров массива
  write('Введите количество строк: ');
  readln(m);
  write('Введите количество столбцов: ');
  readln(n);
  
  // Ввод элементов массива
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      write('arr[', i, ',', j, '] = ');
      readln(arr[i, j]);
    end;
  end;
  
  // Поиск столбца с равным количеством положительных и отрицательных элементов
  columnFound := false;
  for j := 1 to n do
  begin
    positiveCount := 0;
    negativeCount := 0;
    for i := 1 to m do
    begin
      if arr[i, j] > 0 then
        positiveCount := positiveCount + 1
      else if arr[i, j] < 0 then
        negativeCount := negativeCount + 1;
    end;
    if positiveCount = negativeCount then
    begin
      writeln('Столбец ', j, ' содержит равное количество положительных и отрицательных элементов');
      columnFound := true;
    end;
  end;
  
  // Вывод сообщения, если такой столбец не найден
  if not columnFound then
    writeln('В массиве нет столбца с равным количеством положительных и отрицательных элементов');
end.

Этот код позволит найти столбец в массиве m*n, в котором количество положительных и отрицательных элементов равно.