Question

Ввести массив Д (5). Возвести его элементы в квадрат, вывести полученный массив на экран. Программа Паскаль

Answer 1

Ответ:

var D: array [1..5] of integer;

var i: integer;

begin

randomize();

writeln('Исходный массив: ');

for i:=1 to 5 do

 begin

 D[i]:=random(10);

 write(D[i],' ');

 D[i]:=D[i]*D[i];

 end;

writeln();

writeln('Результат: ');

for i:=1 to 5 do

 write(D[i],' ');

end.

Answer 2

Ваш запрос выглядит как код на языке Pascal для возвышения элементов массива в квадрат. Вот как может выглядеть такая программа:

pascalCopy code
program SquareArray;

const
  N = 5; // Размер массива

var
  D: array[1..N] of Integer;
  i: Integer;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('D[', i, ']: ');
    readln(D[i]);
  end;

  // Возвести элементы массива в квадрат
  for i := 1 to N do
    D[i] := D[i] * D[i];

  // Вывести полученный массив на экран
  writeln('Полученный массив:');
  for i := 1 to N do
    writeln('D[', i, ']: ', D[i]);

  readln;
end.

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