Question

«A»: Напишите программу, которая заполняет массив из N = 8 элементов случайными числами в диапазоне [0,10], выводит его на экран, а затем выводит на экран квадраты всех элементов массива. Пример: Массив: 5 6 2 3 1 4 8 7 Квадраты: 25 36 4 9 1 16 64 49 Язык: PASCAL БУДУ ОЧЕНЬ БЛАГОДАРЕН.

Answer 1

const n=8;

var a:array[1..n] of integer;

i: integer;

begin

randomize;

for i := 1 to n do

   a[i] := random(11);

write('Массив: ');

for i := 1 to n do

   write(a[i], ' ');

writeln;

write('Квадраты: ');

for i := 1 to n do

   write(sqr(a[i]), ' ');

writeln

end.

Answer 2

Ответ:

Объяснение:

Вот ,я прикепила на фотографии

Answer 3

Конечно, вот программа на Pascal, которая выполняет задачу:

pascalCopy code
program RandomArraySquares;
var
  arr: array[1..8] of Integer;
  i: Integer;
begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными числами в диапазоне [0, 10]
  for i := 1 to 8 do
    arr[i] := Random(11); // Random(11) генерирует числа от 0 до 10

  // Выводим элементы массива на экран
  Write('Массив: ');
  for i := 1 to 8 do
    Write(arr[i], ' ');

  // Выводим квадраты элементов массива на экран
  Writeln;
  Write('Квадраты: ');
  for i := 1 to 8 do
    Write(arr[i] * arr[i], ' ');

  Readln;
end.

Просто скопируйте этот код в среду разработки Pascal (например, Lazarus) и выполните программу. Она создаст массив из 8 случайных чисел, выведет его на экран, а затем выведет квадраты всех элементов массива.