Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Заменить все отрицательные элементы квадратом...
Заполнить
массив случайными числами (положительными и отрицательными) из произвольного
диапазона. Вывести созданный массив на экран, расположив элементы в одну строку
через пробелы. Заменить все отрицательные элементы квадратом соответствующего
индекса
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 15;
var
i: integer;
a: array[1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(100) - 50;
write(a[i]:6);
if a[i] < 0 then a[i] := sqr(i)
end;
writeln;
writeln('Результирующий массив');
for i := 1 to n do write(a[i]:6);
writeln
end.
Тестовое решение:
Исходный массив
3 37 40 17 20 -12 -27 4 34 -1 9 42 -6 -36 28
Результирующий массив
3 37 40 17 20 36 49 4 34 100 9 42 169 196 28
Не нашли ответ?
Похожие вопросы