Question

НУЖНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЬ. 1. В массиве 10 чисел. Положительные числа замените их номерами. Вывести на экран в столбик изменившийся массив. 2. В массиве М(8) найдите сумму элементов, больших 12

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Writeln('-'*10);
  var a:=ArrRandom(10,-99,99); a.Println;
  a:=a.Select((x,i)->x>0?i+1:x).ToArray; a.Println(NewLine);
  Writeln('-'*10);
  var m:=ArrRandom(8,-10,30); m.Println;
  Writeln('s=',m.Where(x->x>12).Sum)
end.

Тестовое решение
----------
26 -63 12 85 9 53 57 36 -45 30
1
-63
3
4
5
6
7
8
-45
10
----------
11 -4 14 6 24 0 -8 10
s=38

Answer 2

Файл в приложении==============

Answer 3

Программа на языке Паскаль для замены положительных чисел в массиве и вывода измененного массива

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

program ReplacePositiveNumbers;

const
  SIZE = 10; // Размер массива

var
  numbers: array[1..SIZE] of Integer; // Объявление массива
  i: Integer; // Счетчик цикла

begin
  // Заполнение массива случайными числами
  for i := 1 to SIZE do
    numbers[i] := Random(20) - 10; // Генерация случайного числа от -10 до 10

// Вывод исходного массива
  Writeln('Исходный массив:');
  for i := 1 to SIZE do
    Write(numbers[i], ' ');
  Writeln;

// Замена положительных чисел и вывод измененного массива
  Writeln('Измененный массив:');
  for i := 1 to SIZE do
  begin
    if numbers[i] > 0 then
      numbers[i] := i; // Замена положительного числа его номером
    Write(numbers[i], ' ');
  end;
  Writeln;

Readln;
end.

Программа начинается с объявления константы `SIZE`, которая определяет размер массива. Затем объявляется массив `numbers` с размером `SIZE` и переменная `i` для использования в циклах.

В основной части программы сначала заполняется массив `numbers` случайными числами от -10 до 10 с помощью цикла `for`. Затем исходный массив выводится на экран с помощью цикла `for` и процедуры `WriteLn`.

Далее следует цикл `for`, который проходит по всем элементам массива `numbers`. Если элемент массива положительный, то он заменяется его номером с помощью оператора присваивания `:=`. Измененный массив выводится на экран с помощью цикла `for` и процедуры `Write`.

Наконец, программа ожидает ввода пользователя с помощью процедуры `ReadLn`.

Примечание: В приведенной программе используется генератор случайных чисел `Random`, который требует подключения модуля `CRT` для работы. Если вы используете среду разработки, которая автоматически подключает этот модуль, то вам не нужно его добавлять. Если же вы компилируете программу в командной строке или другим способом, вам может потребоваться добавить `uses CRT;` перед объявлением программы.

Программа на языке Паскаль для нахождения суммы элементов массива, больших 12

Вот пример программы на языке Паскаль, которая находит сумму элементов массива, больших 12:

program SumOfElements;

const
  SIZE = 8; // Размер массива

var
  M: array[1..SIZE] of Integer; // Объявление массива
  i, sum: Integer; // Счетчик цикла и переменная для хранения суммы

begin
  // Заполнение массива случайными числами
  for i := 1 to SIZE do
    M[i] := Random(20); // Генерация случайного числа от 0 до 19

// Вывод исходного массива
  Writeln('Исходный массив:');
  for i := 1 to SIZE do
    Write(M[i], ' ');
  Writeln;

// Нахождение суммы элементов, больших 12
  sum := 0; // Инициализация переменной суммы
  for i := 1 to SIZE do
  begin
    if M[i] > 12 then
      sum := sum + M[i]; // Увеличение суммы на значение элемента
  end;

// Вывод суммы
  Writeln('Сумма элементов, больших 12:', sum);

Readln;
end.

Программа начинается с объявления константы `SIZE`, которая определяет размер массива. Затем объявляется массив `M` с размером `SIZE` и переменные `i` и `sum` для использования в циклах и хранения суммы.

В основной части программы сначала заполняется массив `M` случайными числами от 0 до 19 с помощью цикла `for`. Затем исходный массив выводится на экран с помощью цикла `for` и процедуры `WriteLn`.

Далее следует цикл `for`, который проходит по всем элементам массива `M`. Если элемент массива больше 12, то его значение добавляется к переменной `sum` с помощью оператора `:=`.

Наконец, программа выводит сумму элементов, больших 12, на экран с помощью процедуры `WriteLn`.

Примечание: В приведенной программе используется генератор случайных чисел `Random`, который требует подключения модуля `CRT` для работы. Если вы используете среду разработки, которая автоматически подключает этот модуль, то вам не нужно его добавлять. Если же вы компилируете программу в командной строке или другим способом, вам может потребоваться добавить `uses CRT;` перед объявлением программы.