Задачи Pascal

[BBorr1]

ABC паскаль

[ByAlex]

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

ABC паскаль

Попробуй массив сделать статическим, а не динамическим.

[Hacker19_90]

Забейте короч!
Если у вас Просто
Паскаль ABC в чём я сомниваюсь, то вы вообще не поддерживаете динамику!
Если У вас Net, то простыми средствами вы не потяните такое

A:array of array of Integer;

[ByAlex]

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

Забейте короч!
Если у вас Просто
Паскаль ABC в чём я сомниваюсь, то вы вообще не поддерживаете динамику!
Если У вас Net, то простыми средствами вы не потяните такое

Поэтому я ему и сказал, чтобы он на статические массивы перешел!

uses crt;
var
  A:array[1..100,1..100] of Integer;
  B:array[1..100] of Integer;
  i,j,N,M,t:Integer;
begin
  t:=1;
  while not (N in [1..100]) do
  begin
    write('N = ');
    readln(N);
  end;
  while not (M in [1..100]) do
  begin
    write('M = ');
    readln(M);
  end;
  Writeln('Matrix is - ');
  for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      A[i,j]:=Random(30)-10;
      write(A[i,j],' ');
      if A[i,j]>=0 then
      begin
        B[t]:=A[i,j];
        Inc(t);
      end;
    end;
    Writeln;
  end;
  Write('Massive B = ');
  for i:=1 to t do
    write(B[i],' ');
  readln;
end.

[Hacker19_90]

var
  A:array[1..100,1..100] of Integer;
  B:array[1..100] of Integer;

рискованно!
В исходной матрице 10000 элементов!
В массиве В у нас всего 100
Что если (я не знаю что должно произойти ) у нас исходный массив будет весь только из положительных! То тогда

for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      A[i,j]:=Random(30)-10;
      write(A[i,j],' ');
      if A[i,j]>=0 then
      begin
        B[t]:=A[i,j];
        Inc(t);
      end;
    end;
    Writeln;
  end;

CRASH!

[ByAlex]

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

рискованно!
В исходной матрице 10000 элементов!
В массиве В у нас всего 100
Что если (я не знаю что должно произойти ) у нас исходный массив будет весь только из положительных! То тогда

CRASH!

Пусть он размерность массива A берет маленькую!

[BBorr1]

Ап тему !!!!

[Hacker19_90]

В чём смысл ап темы?
вам же всё помоему написали или нет?

[BBorr1]

ну, я в массивах не шарю 3ую задачу то сделали) Но 1,2,4 очень нужны тоже

[Hacker19_90]

если что решены 2 3 4
вам осталось ток 1