Удалить чётные элементы, стоящие после максимального (с параметрами и без параметров)

@born_villain · Регистрация: 23.02.2015

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

Нужно также использовать процедуры и функции в обоих случаях(((

Пример: из массива А[5]; 2 7 4 6 5 должен получиться массив A3: 2 7 5

@ZX Spectrum-128 · 19.03.2015, 20:39

Из одноммерного массива удалить четные элементы, стоящие после максимального, использовать подпрограммы

@born_villain · 19.03.2015, 20:48 **[ТС]**

ZX Spectrum-128, но мне нужно с процедурами/функциями + с параметрами и без них.

@ZX Spectrum-128 · 20.03.2015, 11:06

Что именно запихать в процедуры/функции?
Ввод-вывод, нахождение макс., удаление элементов?

@GreenForest · 20.03.2015, 12:16

born_villain, напишите сами, а здесь выложите код. Если будут ошибки - Вам помогут, а вот все делать за Вас мало кто захочет.

@born_villain · 26.03.2015, 19:32 **[ТС]**

ZX Spectrum-128, нахождение максимального.

Добавлено через 4 минуты
GreenForest, у меня плохо получается писать программы, поэтому я прошу помощь у тех, кто является профессионалом/полупрофессионалом/любителем.

@ZX Spectrum-128 · 26.03.2015, 19:36

Pascal

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
Var A:arr;
    i,j,k,kol,max:integer;
 
function FindMax(x:arr;var k:integer):integer;
var
  max,i:integer;
begin
  max:=x[1];
  k:=1;
  for i:=2 to n do if x[i]>max then
    begin
      max:=x[i];
      k:=i;
    end;
  findmax:=max;
end;
 
begin
  clrscr;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
    A[i]:=Random(100);
    write(A[i],' ');
  end;
  writeln;
  writeln('Максимум: ',findmax(a,k));
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  writeln('Полученный массив:');
  for i:=1 to kol do Write(A[i],' ');
  readln;
end.

@born_villain · 26.03.2015, 20:55 **[ТС]**

ZX Spectrum-128, а как делать с параметрами?

@ZX Spectrum-128 · 26.03.2015, 21:06

Pascal

1	function FindMax(x:arr;var k:integer):integer;

Это и есть с параметрами

Добавлено через 4 минуты
Без параметров:

Pascal

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
Var A:arr;
    i,j,k,kol,max:integer;
 
function FindMax:integer;
var
  max,i:integer;
begin
  max:=a[1];
  k:=1;
  for i:=2 to n do if a[i]>max then
    begin
      max:=a[i];
      k:=i;
    end;
  findmax:=max;
end;
 
begin
  clrscr;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
    A[i]:=Random(100);
    write(A[i],' ');
  end;
  writeln;
  writeln('Максимум: ',findmax);
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  writeln('Полученный массив:');
  for i:=1 to kol do Write(A[i],' ');
  readln;
end.

@born_villain · 30.03.2015, 20:24 **[ТС]**

ZX Spectrum-128, скажите, пожалуйста, ещё как использовать процедуру ввода-вывода здесь?

@ZX Spectrum-128 · 31.03.2015, 11:59

Pascal

procedure InputArray;
var
  i:integer;
begin
  for i:=1 to n do
    readln(a[i]);
end;
 
procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to n do
    write(A[i],' ');
end;

@born_villain · 31.03.2015, 19:06 **[ТС]**

ZX Spectrum-128, спасибо! Но вместо чего нужно это вставить?

@ZX Spectrum-128 · 31.03.2015, 19:16

InputArray

Pascal

for i:=1 to n do
    begin
    A[i]:=Random(100);
    write(A[i],' ');
  end;

PrintArray

Pascal

1	for i:=1 to kol do Write(A[i],' ');

@born_villain · 31.03.2015, 19:23 **[ТС]**

ZX Spectrum-128, я, как раз-таки, вместо этого и вставлял. Ошибку пишет.

Pascal

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
Var A:arr;
    i,j,k,kol,max:integer;
 
function FindMax:integer;
var
  max,i:integer;
begin
  max:=a[1];
  k:=1;
  for i:=2 to n do if a[i]>max then
    begin
      max:=a[i];
      k:=i;
    end;
  findmax:=max;
end;
 
begin
  clrscr;
  randomize;
  writeln('ﾈ鮏燾・・鞣:');
procedure InputArray;
var
  i:integer;
begin
  for i:=1 to n do
    readln(a[i]);
end;
 
  writeln;
  writeln('ﾌ瑕・・ ',findmax);
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  writeln('ﾏ鸙褊燾・・鞣:');
  procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to n do
    write(A[i],' ');
end;
  readln;
end.

@ZX Spectrum-128 · 31.03.2015, 19:27

Процедуры описываются ДО begin'а основной программы.

@born_villain · 31.03.2015, 19:38 **[ТС]**

ZX Spectrum-128, а теперь массивы не выводятся((

Pascal

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
Var A:arr;
    i,j,k,kol,max:integer;
 
function FindMax:integer;
var
  max,i:integer;
procedure InputArray;
var
  i:integer;
begin
  for i:=1 to n do
    readln(a[i]);
end;
 
procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to n do
    write(A[i],' ');
end;
 
 
 
begin
  max:=a[1];
  k:=1;
  for i:=2 to n do if a[i]>max then
    begin
      max:=a[i];
      k:=i;
    end;
  findmax:=max;
end;
 
begin
  clrscr;
  randomize;
  writeln('Исходный массив:');
 
  writeln;
  writeln('Максимум',findmax);
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  writeln('Преобразованный:');
 
  readln;
end.

@ZX Spectrum-128 · 31.03.2015, 19:42

Pascal

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
Var A:arr;
    i,j,k,kol,max:integer;
procedure InputArray;
var
  i:integer;
begin
  for i:=1 to n do
    readln(a[i]);
end;
 
procedure PrintArray;
var
  i:integer;
begin
  for i:=1 to kol do
    write(A[i],' ');
end;
 
function FindMax:integer;
var
  max,i:integer;
 
begin
  max:=a[1];
  k:=1;
  for i:=2 to n do if a[i]>max then
    begin
      max:=a[i];
      k:=i;
    end;
  findmax:=max;
end;
 
begin
  clrscr;
  randomize;
  writeln('Исходный массив:');
  inputarray;
 
  writeln;
  writeln('Максимум',findmax);
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  writeln('Преобразованный:');
  PrintArray; 
  readln;
end.

@born_villain · 31.03.2015, 19:47 **[ТС]**

ZX Spectrum-128, БОЛЬШОЕ СПАСИБО!

@born_villain 1 / 1 / 0 Регистрация: 23.02.2015 Сообщений: 39
	31.03.2015, 19:47 [ТС]	18
	ZX Spectrum-128, БОЛЬШОЕ СПАСИБО! 0

Удалить чётные элементы, стоящие после максимального (с параметрами и без параметров)

Решение

Решение

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	19.03.2015, 20:39	2
	Из одноммерного массива удалить четные элементы, стоящие после максимального, использовать подпрограммы 0

@born_villain 1 / 1 / 0 Регистрация: 23.02.2015 Сообщений: 39
	19.03.2015, 20:48 [ТС]	3
	ZX Spectrum-128, но мне нужно с процедурами/функциями + с параметрами и без них. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	20.03.2015, 11:06	4
	Что именно запихать в процедуры/функции? Ввод-вывод, нахождение макс., удаление элементов? 0

@GreenForest 50 / 42 / 25 Регистрация: 05.12.2013 Сообщений: 275
	20.03.2015, 12:16	5
	born_villain, напишите сами, а здесь выложите код. Если будут ошибки - Вам помогут, а вот все делать за Вас мало кто захочет. 0

@born_villain 1 / 1 / 0 Регистрация: 23.02.2015 Сообщений: 39
	26.03.2015, 19:32 [ТС]	6
	ZX Spectrum-128, нахождение максимального. Добавлено через 4 минуты GreenForest, у меня плохо получается писать программы, поэтому я прошу помощь у тех, кто является профессионалом/полупрофессионалом/любителем. 0

@born_villain 1 / 1 / 0 Регистрация: 23.02.2015 Сообщений: 39
	26.03.2015, 20:55 [ТС]	8
	ZX Spectrum-128, а как делать с параметрами? 0

@born_villain 1 / 1 / 0 Регистрация: 23.02.2015 Сообщений: 39
	30.03.2015, 20:24 [ТС]	10
	ZX Spectrum-128, скажите, пожалуйста, ещё как использовать процедуру ввода-вывода здесь? 0

@born_villain 1 / 1 / 0 Регистрация: 23.02.2015 Сообщений: 39
	31.03.2015, 19:06 [ТС]	12
	ZX Spectrum-128, спасибо! Но вместо чего нужно это вставить? 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	31.03.2015, 19:27	15
	Процедуры описываются ДО begin'а основной программы. 1