Заменить все положительные элементы массива на значение минимального

@DyRo4oK · Регистрация: 04.03.2016

Author24 — интернет-сервис помощи студентам

Добрый День Помогите пожалуйста с задачей в паскаль..
6.5. Заменить все положительные 1|отрицательные 2 элементы целочисленного массива размера 10 на значение минимального 3|максимального 4.
Заранее спасибо Вам)

@bormant · 11.03.2016, 11:31

Какая из 4 приведенных задач имелась в виду?

Добавлено через 6 минут

Pascal

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.

@DyRo4oK · 11.03.2016, 12:52 **[ТС]**

bormant, Непонял вашего вопроса

@ZX Spectrum-128 · 11.03.2016, 13:21

Сообщение от DyRo4oK

bormant, Непонял вашего вопроса

Нужно научиться корректно формулировать ваши вопросы.

@bormant · 11.03.2016, 17:45

DyRo4oK,
вами приведены четыре задачи:
1.3. Заменить все положительные элементы целочисленного массива размера 10 на значение минимального.
1.4. Заменить все положительные элементы целочисленного массива размера 10 на значение максимального.
2.3. Заменить все отрицательные элементы целочисленного массива размера 10 на значение минимального.
2.4. Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.

Какая из 4 приведенных задач имелась в виду?

@DyRo4oK 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 11
		1
	Заменить все положительные элементы массива на значение минимального 11.03.2016, 10:58. Показов 5409. Ответов 4 Метки нет (Все метки) Добрый День Помогите пожалуйста с задачей в паскаль.. 6.5. Заменить все положительные 1\|отрицательные 2 элементы целочисленного массива размера 10 на значение минимального 3\|максимального 4. Заранее спасибо Вам) 0

@DyRo4oK 0 / 0 / 0 Регистрация: 04.03.2016 Сообщений: 11
	11.03.2016, 12:52 [ТС]	3
	bormant, Непонял вашего вопроса 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	11.03.2016, 13:21	4
	Сообщение от DyRo4oK bormant, Непонял вашего вопроса Нужно научиться корректно формулировать ваши вопросы. 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	11.03.2016, 17:45	5
	DyRo4oK, вами приведены четыре задачи: 1.3. Заменить все положительные элементы целочисленного массива размера 10 на значение минимального. 1.4. Заменить все положительные элементы целочисленного массива размера 10 на значение максимального. 2.3. Заменить все отрицательные элементы целочисленного массива размера 10 на значение минимального. 2.4. Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Какая из 4 приведенных задач имелась в виду? 0

Заменить все положительные элементы массива на значение минимального

Решение