Question

ОБМАНШИКАМ БАН .Дан массив из 15 целых чисел. Запишите на языке Паскаль программу, которая уменьшает все элементы массива в 4 раза. Исходные данные вводятся с клавиатуры.

Answer 1

PascalABC.NET:  

### RAI(15).Sel(x → x / 4).Pr

Answer 2

Для решения этой задачи в Паскале можно использовать следующую программу:

pascalCopy code
program Main;
var
  arr: array[1..15] of Integer;
  i: Integer;
begin
  writeln('Введите 15 целых чисел:');
  
  // Ввод элементов массива
  for i := 1 to 15 do
    readln(arr[i]);
  
  // Умножение всех элементов на 4
  for i := 1 to 15 do
    arr[i] := arr[i] * 4;
  
  // Вывод результата
  writeln('Исходный массив, умноженный на 4:');
  for i := 1 to 15 do
    writeln(arr[i]);
end.

Эта программа сначала запрашивает ввод 15 целых чисел с клавиатуры и сохраняет их в массив arr. Затем она умножает каждый элемент массива на 4 и выводит результат.