Pascal. Дан одномерный динамический массив A(n), заполненный случайными числами в диапазоне от -30 до 30. Все отрицательные элементы до минимального обнулить. Исходный и изменённый массивы вывести на экран в отдельных строках.

Программа на Pascal:

program ArrayTask;
var
A: array of integer;
n, i, min, minIndex: integer;
begin
write('Введите размер массива n: ');
readln(n);
SetLength(A, n);
randomize;
writeln('Исходный массив:');
for i := 0 to n-1 do
begin
A[i] := random(61) - 30; { от -30 до 30 }
write(A[i], ' ');
end;
writeln;
{ поиск минимального элемента и его индекса }
min := A[0];
minIndex := 0;
for i := 1 to n-1 do
if A[i] < min then
begin
min := A[i];
minIndex := i;
end;
{ обнуление отрицательных элементов до минимального }
for i := 0 to minIndex-1 do
if A[i] < 0 then
A[i] := 0;
writeln('Изменённый массив:');
for i := 0 to n-1 do
write(A[i], ' ');
writeln;
end.

0 0 Пожаловаться