Заменить все положительные элементы массива на значение минимального - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
