Question

Помогите прошу!!! Написать программу на языке Pascal для решения задачи: а) Ввести случайным образом (возможные значения от 0 до 60) значения 7 элементов массива, содержащего целые числа. Значение каждого элемента массива уменьшить на 10. Вывести значения элементов измененного массива на экран в строчку (через пробел). б) Ввести с клавиатуры значения 15 элементов массива, содержащего вещественные числа. Значение каждого элемента массива увеличить в 4 раза. Вывести значения элементов измененного массива на экран в столбик.

Answer 1

1)

var

 a:array [1..7] of integer;

 i:integer;

begin

 for i:=1 to 7 do  

   begin

     a[i]:=random(61);

     write(a[i],' ');

     a[i]:=a[i]-10;

   end;

 for i:=1 to 7 do

   write(a[i],' ');

end.

2)

const

 n=15;

var

 a: array [1..n] of real;

 i:integer;

begin

 for i:=1 to n do

   readln(a[i]);

 for i:=1 to n do

   begin

     a[i]:=a[i]*4;

     write(a[i],' ');

   end;

end.

Answer 2

Для решения задачи на языке Pascal, вам потребуется написать программу, которая выполняет два действия:

а) Вводит случайным образом значения 7 элементов массива, содержащего целые числа от 0 до 60, и уменьшает значение каждого элемента массива на 10. Затем выводит значения элементов измененного массива на экран в строчку через пробел.

б) Вводит с клавиатуры значения 15 элементов массива, содержащего вещественные числа, и увеличивает значение каждого элемента массива в 4 раза. Затем выводит значения элементов измененного массива на экран в столбик.

Вот пример программы на языке Pascal, решающей данную задачу:

program ArrayManipulation;

const
  ARRAY_SIZE = 7;
  REAL_ARRAY_SIZE = 15;

var
  i: integer;
  intArray: array[1..ARRAY_SIZE] of integer;
  realArray: array[1..REAL_ARRAY_SIZE] of real;

begin
  // а) Ввод случайных значений и уменьшение на 10
  randomize; // Инициализация генератора случайных чисел
  for i := 1 to ARRAY_SIZE do
  begin
    intArray[i] := random(61); // Генерация случайного числа от 0 до 60
    intArray[i] := intArray[i] - 10; // Уменьшение значения на 10
    write(intArray[i], ' '); // Вывод значения элемента массива
  end;
  writeln; // Переход на новую строку

// б) Ввод значений с клавиатуры и увеличение в 4 раза
  for i := 1 to REAL_ARRAY_SIZE do
  begin
    write('Введите значение элемента ', i, ': ');
    readln(realArray[i]); // Ввод значения элемента массива
    realArray[i] := realArray[i] * 4; // Увеличение значения в 4 раза
  end;
  writeln; // Переход на новую строку
  for i := 1 to REAL_ARRAY_SIZE do
  begin
    writeln(realArray[i]); // Вывод значения элемента массива
  end;

end.

Программа начинается с объявления констант `ARRAY_SIZE` и `REAL_ARRAY_SIZE`, которые определяют размеры массивов. Затем объявляются переменные `i`, `intArray` и `realArray`, которые будут использоваться для хранения значений массивов.

В основной части программы используется цикл `for` для выполнения двух действий:

а) Цикл `for` считывает случайные значения для массива `intArray`, уменьшает каждое значение на 10 и выводит значения элементов массива на экран в строчку через пробел.

б) Цикл `for` запрашивает значения с клавиатуры для массива `realArray`, увеличивает каждое значение в 4 раза и выводит значения элементов массива на экран в столбик.

Программа заканчивается командой `end.`, которая обозначает конец программы.

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