Преобразовать массивы Х(50) и Y(60), расположив в них подряд только положительные элементы

@Noimann · Регистрация: 16.12.2018

Author24 — интернет-сервис помощи студентам

Преобразовать массивы Х(50) и Y(60), расположив в них подряд только положительные элементы. Вместо остальных элементов записать нули.
Выдает ошибку "Встречено '.', а ожидалось ';' ". Не понимаю что нужно, я не особо силен в этом(

Pascal

uses crt;
type mas=array [1..50,1..60] of integer;
var n,i:integer;
    x,y:mas;
procedure pol(var x,y:integer);
var n,i:integer;
begin
clrscr;
writeln('Исходные массивы:');
write('X:');
for i:=1 to 50 do
begin
x[i]:=random(21)-10;
write(x[i],'');
if x[i]>0 then
begin
writeln;
pol(x[i],x[n]);
end;
end;
n:=0;
writeln; writeln;
write ('Y:');
for i:=1 to 50 do
begin
y[i]:=random(21)-10;
write(y[i],'');
if y[i]>0 then
begin
writeln;
pol(y[i],y[n]);
end;
end;
writeln; writeln;
writeln ('Новый X:');
for i:=1 to 50 do
begin
if x[i]<0 then x[i]:=0;
write(x[i],'');
end;
writeln; writeln;
writeln ('Новый Y:');
for i:=1 to 60 do
begin
if y[i]<0 then y[i]:=0;
write(y[i],'');
end;
end.

@Get_Over_Here · 16.12.2018, 19:57

Noimann,

Pascal

uses crt;
 
type
  mas = array [1..50, 1..60] of integer;
 
var
  n, i: integer;
  x, y: mas;
 
procedure pol(var x, y: integer);
var
  n, i: integer;
begin
  clrscr;
  writeln('Исходные массивы:');
  write('X:');
  for i := 1 to 50 do
  begin
    x[i] := random(21) - 10;
    write(x[i], '');
    if x[i] > 0 then
    begin
      writeln;
      pol(x[i], x[n]);
    end;
  end;
  n := 0;
  writeln; writeln;
  write('Y:');
  for i := 1 to 50 do
  begin
    y[i] := random(21) - 10;
    write(y[i], '');
    if y[i] > 0 then
    begin
      writeln;
      pol(y[i], y[n]);
    end;
  end;
  writeln; writeln;
  writeln('Новый X:');
  for i := 1 to 50 do
  begin
    if x[i] < 0 then x[i] := 0;
    write(x[i], '');
  end;
  writeln; writeln;
  writeln('Новый Y:');
  for i := 1 to 60 do
  begin
    if y[i] < 0 then y[i] := 0;
    write(y[i], '');
  end;
end;
 
begin
end.

@Noimann · 16.12.2018, 20:07 **[ТС]**

Теперь он пишет "нет индексного свойства по умолчанию для типа integer"

Добавлено через 2 минуты
Get_Over_Here, Теперь он пишет "нет индексного свойства по умолчанию для типа integer"

@Get_Over_Here · 16.12.2018, 20:22

Noimann, Переименуйте параметр x в процедуре pol

Добавлено через 5 минут
И ещё, у вас mas - это матрица, а не массив

@Noimann · 16.12.2018, 20:34 **[ТС]**

Get_Over_Here, можно пожалуйста по подробнее, а то не совсем понимаю(

@Get_Over_Here · 16.12.2018, 20:54

Так объявляется матрица

Pascal

1	mas = array [1..50, 1..60] of integer;

А так массив

Pascal

1 2	mas = array [1..50] of integer;

Добавлено через 2 минуты
А в процедуре Pol у вас имя параметра совпадает с именем глобальной переменной и IDE обращается к параметру, а не к переменной(параметр x - это переменная типа integer, а Глобальная переменная x - это матрица)

Pascal

1 2	procedure pol(var x, y: integer); var x, y: mas;

Добавлено через 7 минут
Noimann, А если до сих пор не поняли, то почитайте в интернете про матрицы и массивы

@Noimann 1 / 1 / 0 Регистрация: 16.12.2018 Сообщений: 15
	16.12.2018, 20:07 [ТС]	3
	Теперь он пишет "нет индексного свойства по умолчанию для типа integer" Добавлено через 2 минуты Get_Over_Here, Теперь он пишет "нет индексного свойства по умолчанию для типа integer" 0

@Get_Over_Here 79 / 49 / 23 Регистрация: 15.07.2018 Сообщений: 255
	16.12.2018, 20:22	4
	Noimann, Переименуйте параметр x в процедуре pol Добавлено через 5 минут И ещё, у вас mas - это матрица, а не массив 0

@Noimann 1 / 1 / 0 Регистрация: 16.12.2018 Сообщений: 15
	16.12.2018, 20:34 [ТС]	5
	Get_Over_Here, можно пожалуйста по подробнее, а то не совсем понимаю( 0

	16.12.2018, 20:54