Переписать положительные элементы массива X (30) и Y (30) в массив Z - Turbo Pascal

Формулировка задачи:

Переписать положительные элементы массива X(30) и Y(30) в массив Z. Заполнение массива Z в подпрограмме.

Код к задаче: «Переписать положительные элементы массива X (30) и Y (30) в массив Z - Turbo Pascal»

textual
var
  x, y: array[1..30] of integer;
  i, size: byte;
  z: array of integer;
 
procedure plus(i: integer);
begin
  if i > 0 then 
  begin
    size := size + 1;
    SetLength(z, size);
    z[size - 1] := i;
  end;
end;
 
begin
  size := 1;
  Randomize;
  write('Массив x: ');
  for i := 1 to 30 do
  begin
    x[i] := Random(-100, 100);
    write(x[i]:4);
    plus(x[i]);
  end;
  writeln;
  write('Массив y: ');
  for i := 1 to 30 do
  begin
    y[i] := Random(-100, 100);
    write(y[i]:4);
    plus(y[i]);
  end;
  writeln;
  write('Массив z: ');
  for i := 1 to size - 1 do
    write(z[i]:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы