В массиве все отрицательные элементы увеличить на 2

@mmejder · Регистрация: 29.05.2016

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

здравствуйте. очень нужна ваша срочная помощь. помогите пожалуйста написать программу : в массиве все отрицательные элементы увеличить на 2, а все не отрицательные элементы заменить на 1 в Pascal ABC.

@ZX Spectrum-128 · 30.05.2016, 07:04

Pascal

for i:=1 to n do
 if a[i]<0 then
  a[i]:=a[i]+2
 else
  a[i]:=1;

@mmejder · 30.05.2016, 07:55 **[ТС]**

Спасибо большое, но могли бы вы написать программу полностью от начала и до конца, потому что в программировании я не сильна.

@mmejder 0 / 0 / 0 Регистрация: 29.05.2016 Сообщений: 11
		1
	В массиве все отрицательные элементы увеличить на 2 29.05.2016, 22:20. Показов 1379. Ответов 2 Метки нет (Все метки) здравствуйте. очень нужна ваша срочная помощь. помогите пожалуйста написать программу : в массиве все отрицательные элементы увеличить на 2, а все не отрицательные элементы заменить на 1 в Pascal ABC. 0

@mmejder 0 / 0 / 0 Регистрация: 29.05.2016 Сообщений: 11
	30.05.2016, 07:55 [ТС]	3
	Спасибо большое, но могли бы вы написать программу полностью от начала и до конца, потому что в программировании я не сильна. 0

В массиве все отрицательные элементы увеличить на 2

Решение