Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные

@omgdimas163 · Регистрация: 18.12.2013

Пожалуйста помогите, нужно решить 3 задачи

1. Дан массив А (25). Расположить все элементы в таком порядке: сначала все положительные, затем нули, затем отрицательные.

2. Дан массив А(N). Заменить нулями все элементы между максимальным и минимальным элементами.

3. Дан массив M(N). Удалить из массива все элементы кратные 5.

@centrum · 19.12.2013, 03:19

Первая:

Pascal

Uses Crt;
Const nmax=25;
Var A:array[1..nmax] of integer;
    B:array[1..nmax] of integer;
    n,i,j:integer;
begin
writeln('введите вол-во чисел');
readln(n);
for i:=1 to n do
     begin
           write(i,'-й: ');
           read(A[i]);
     end;
for i:=1 to n do
    write(A[i],' ');
writeln;
writeln('преобразованный массив:');
for i:=1 to n do
   if A[i]<0 then
      write(A[i], ' ');
for i:=1 to n do
   if A[i]=0 then
      write(A[i], ' ');
for i:=1 to n do
   if A[i]>0 then
      write(A[i], ' ');
end.

Добавлено через 13 минут
Третья:

Pascal

Uses Crt;
Const nmax=25;
Var A:array[1..nmax] of integer;
    B:array[1..nmax] of integer;
    n,i,j:integer;
begin
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
     begin
           write(i,'-й: ');
           read(A[i]);
     end;
     writeln('1 массив:');
for i:=1 to n do
    write(A[i],' ');
writeln;
inc(j);
for i:=1 to n do
    if (A[i] mod 5 <> 0) then
    begin
         B[j]:=A[i];
         inc(j);
    end;
n:=j-1;
writeln('2 массив:');
for i:=1 to n do
    write(B[i],' ');
end.

@ildwine · 19.12.2013, 06:34

Комментарий модератора

omgdimas163, одна тема одна задача! Читайте правила форума

@omgdimas163 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 10
		1
	Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные 18.12.2013, 23:03. Показов 1780. Ответов 2 Метки нет (Все метки) Пожалуйста помогите, нужно решить 3 задачи 1. Дан массив А (25). Расположить все элементы в таком порядке: сначала все положительные, затем нули, затем отрицательные. 2. Дан массив А(N). Заменить нулями все элементы между максимальным и минимальным элементами. 3. Дан массив M(N). Удалить из массива все элементы кратные 5. 0

Опции темы

Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные

Решение