Question

Как удвоить все элементы массива в паскале?

Answer 1

21

1

Удвоить все положительные элементы массива

12.12.2011, 00:50. Просмотров3537. Ответов 2

Метки нет (Все метки)



Задание :

Тип массива - целый; число элементов - 10.

Постановка задачи:

1 - Организовать ввод массива заданного размера.;

2 - Посчитать сумму всех членов массива ;

3 - Найти максимальный и минимальный элемент массива;

4 - вывести введенный массив;

5 - все положительные элементы массива удвоить, все отрицательные элементы заменить на значения их индексов. Вывести преобразованный массив.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Transform(x -> 2 * x); // вот удвоение

 a.Print

end.

Answer 3

Для удвоения всех элементов массива в Pascal (или Pascal-like) языке программирования, вам нужно пройтись по всем элементам массива и умножить каждый элемент на 2. Вот пример кода на языке Pascal, демонстрирующий, как это можно сделать:

pascalCopy code
program DoubleArrayElements;

const
  SIZE = 5; // Размер массива (можете изменить на нужный вам)

var
  arr: array[1..SIZE] of Integer; // Ваш массив
  i: Integer; // Индексная переменная для цикла

begin
  // Заполнение массива (это просто для примера, вы можете вводить элементы с клавиатуры или как-то еще)
  for i := 1 to SIZE do
    arr[i] := i;

  // Удвоение элементов массива
  for i := 1 to SIZE do
    arr[i] := arr[i] * 2;

  // Вывод массива после удвоения
  for i := 1 to SIZE do
    Write(arr[i], ' ');

  // Пауза перед закрытием окна (только для того, чтобы успеть увидеть результат)
  ReadLn;
end.

В этом примере, размер массива задан как 5, но вы можете изменить его на нужный вам размер. Второй цикл for проходится по всем элементам массива и умножает каждый из них на 2. После этого массив выводится на экран для проверки результата.

Пожалуйста, учтите, что синтаксис языка Pascal может незначительно различаться в различных реализациях, но основная идея останется примерно такой же.