Поменять порядок следования элементов в массиве на обратный

@Nurkizar · Регистрация: 09.06.2011

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

1) Дан действительный массив А(n) Поменять порядок следования элементов в массиве на обратный.
2) Дан массив A(n) Вывести в порядке следования все отрицательные числа, затем все положительные числа.

@us3r · 24.11.2011, 11:55

1.

Pascal

program invent;
var a:array[1..50] of Integer;
     b,n,i:Integer;
          
begin
  write('Введите размер массива');readln(n);
  write('Введите элементы массива');
  for i:=1 to n do
    begin
      write ('a[', i, '] = ');
      readln(n);
    end;
  for i:=1 to (N div 2) do 
    begin 
      b := a[i]; 
      a[i] := a[n+1-i]; 
      a[n+1-i] := b; 
    end;
  writeln('полученный массив:');
  for i:=1 to n do
    begin
      write(a[i]);
      write(' ');
end.

2. Тут напишу только сам выч. алгоритм, остальное лень, ес чесно.

Pascal

for i:=1 to n do 
    if a[i]<0 then write(a[i],' ');
   writeLn;
   for i:=1 to n do 
    if a[i]>=0 then write(a[i],' ');
   writeLn;

@Nurkizar 0 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 57
		1
	Поменять порядок следования элементов в массиве на обратный 24.11.2011, 09:32. Показов 6111. Ответов 1 Метки нет (Все метки) 1) Дан действительный массив А(n) Поменять порядок следования элементов в массиве на обратный. 2) Дан массив A(n) Вывести в порядке следования все отрицательные числа, затем все положительные числа. 0

	24.11.2011, 11:55

Поменять порядок следования элементов в массиве на обратный

Решение