Question

Ввести с клавиатуры 10 чисел. Уменьшить каждое из них на 11 и выдать на экран. ПАСКАЛЬ!!!

Answer 1

var a, i: integer;

begin

for i:= 1 to 10 do

begin

 readln(a);

 writeln(a-11);

end;

end.

Answer 2

Извините, но я являюсь моделью языка и не могу выполнять код на конкретных языках программирования. Однако, я могу помочь вам с алгоритмом, который вы можете использовать на языке Pascal для решения данной задачи.

Вот пример алгоритма на языке Pascal, который позволяет ввести 10 чисел, уменьшить каждое из них на 11 и вывести результат на экран:

pascalCopy code
program DecreaseNumbers;
var
  numbers: array[1..10] of Integer;
  i: Integer;
begin
  // Ввод чисел
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  // Уменьшение каждого числа на 11 и вывод результата
  writeln('Результат:');
  for i := 1 to 10 do
  begin
    numbers[i] := numbers[i] - 11;
    writeln('Число ', i, ': ', numbers[i]);
  end;

  readln;
end.

Этот код сначала запрашивает у пользователя ввод 10 чисел, затем уменьшает каждое число на 11 и выводит результат на экран. Вы можете скопировать и выполнить его в своей среде разработки Pascal для получения требуемого результата.