Заменить все отрицательные элементы массива на -1, а положительные на +1

@CWBENIO · Регистрация: 23.05.2016

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

Преобразовать массив, заменив все отрицательные числа на -1, а положительные на +1.
помогите

@Peoples · 25.05.2016, 16:36

Pascal

program pr;
const
Csize=100;
var
  i, n: integer;
  a: array [1..Csize] of integer;
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21) - 10;
    write(a[i]:3);
  end;
  for i := 1 to n do
    if a[i] < 0 then
      a[i] := -1;
      
       for i := 1 to n do
    if a[i] > 0 then
      a[i] := 1;
  writeln;
  writeln('Преобразованный массив');
  for i := 1 to n do
    write(a[i]:3);
end.

@CWBENIO 0 / 0 / 0 Регистрация: 23.05.2016 Сообщений: 3
		1
	Заменить все отрицательные элементы массива на -1, а положительные на +1 25.05.2016, 16:11. Показов 4487. Ответов 1 Метки нет (Все метки) Преобразовать массив, заменив все отрицательные числа на -1, а положительные на +1. помогите 0

	25.05.2016, 16:36

Заменить все отрицательные элементы массива на -1, а положительные на +1

Решение