Заменить все положительные элементы массива на значение минимального - Pascal
Формулировка задачи:
Добрый День Помогите пожалуйста с задачей в паскаль..
6.5. Заменить все положительные 1|отрицательные 2 элементы целочисленного массива размера 10 на значение минимального 3|максимального 4.
Заранее спасибо Вам)
Решение задачи: «Заменить все положительные элементы массива на значение минимального»
textual
Листинг программы
const n=10; var a: array [1..n] of Integer; i, m: Integer; begin Randomize; for i:=1 to n do a[i]:=-10+Random(21); m:=a[1]; for i:=2 to n do if a[i]<m {3} then m:=a[i]; Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn; for i:=1 to n do if a[i]>0 {1} then a[i]:=m; Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д