Заменить все положительные элементы массива на значение минимального - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы