Question

1.составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных элементов настоящей таблице х [1 .. 10] на 0. 3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат. 4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.

Answer 1

//первая программа

var
  x:array[1..10] of integer;
  i:integer;
begin
  for i := 1 to 10 do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
    inc(x[i]);
  end;
 
  writeln;
  writeln('Result');
  for i := 1 to 10 do
    write(x[i], ' ');
  readln;
end.

//вторая программа

var
  x:array[1..10] of integer;
  i:integer;
begin
  for i := 1 to 10 do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
    if x[i] > 0 then
      x[i] := 0;
  end;

  writeln;
  writeln('Result');
  for i := 1 to 10 do
    write(x[i], ' ');
  readln;
end.

// третья программа

var
  x:array[1..10] of integer;
  i:integer;
begin
  for i := 1 to 10 do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
    if x[i] < 0 then
      x[i] := x[i] * x[i];
  end;

  writeln;
  writeln('Result');
  for i := 1 to 10 do
    write(x[i], ' ');
  readln;
end.

// четвертая программа

var
  x:array[1..10] of integer;
  i:integer;
begin
  for i := 1 to 10 do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
    if x[i] > 10 then
      x[i] := x[i] + 2;
  end;

  writeln;
  writeln('Result');
  for i := 1 to 10 do
    write(x[i], ' ');
  readln;
end.