Задание:
Сформировать одномерный массив из 15 элементов Заменить все его минимальные элементы число 0. Вывести новый массив наэкран
Решение:
program massiv; var a: array[1… 15] of integer; i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random (50) -25; if a[i]<0 then a[i]: =0; writeln ('a[',i,']=',a[i]); end; end.
Знаете другой ответ?