Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Заменить все отрицательные элементы квадратом соответствующего индекса.
Answers & Comments
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.
Тестовое решение: