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

168

314

Посмотреть ответы 2

Ответы на вопрос:

sva25717

Информатика

4,4(24 оценок)

//pascal abc.net v3.0 сборка 1111 var ar: array of integer; n,i,min,mini: integer; begin randomize; min: =2147483647; writeln('введите размерность: '); readln(n); setlength(ar,n); writeln('array: '); for i: =0 to n-1 do begin ar[i]: =random(-30,30); write(ar[i]: 4); if min> =ar[i] then begin min: =ar[i]; mini: =i; end; end; for i: =0 to mini-1 do if ar[i]< 0 then ar[i]: =0; writeln; writeln('final array: '); for i: =0 to n-1 do write(ar[i]: 4); end.пример ввода: 5пример вывода: array: -3 -26 -2 18 -21final array: 0 -26 -2 18 -21