Question

Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Заменить все отрицательные элементы квадратом соответствующего индекса.

Answer 1

var

i: integer;

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

begin

randomize;

for i:=1 to 10 do

a[i]:=random(10,-10);

writeln('Случайно сгенерированные числа:');

for i:=1 to 10 do

write(a[i], ' ');

for i:=1 to 10 do

if a[i]<0 then a[i]:=a[i]*a[i];

writeln();

writeln();

writeln('Отрицательные эл. массива возведены в квадрат:');

for i:=1 to 10 do

write(a[i], ' ');

end.

Тестовое решение: