VPF::массивы - Форум программистов

христик

Дата 4.12.2011, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.12.2011

Репутация: нет
Всего: нет

дана последовательность целых чисел a1,a2...an.образовать новую последовательность выбросив из исходной те члены которые равны min(a1,a2...an)
просто прогу я написала, а чтобы в этой проге по мимо массива была еще и подпрограмма
сама задача:

Код


uses crt;
var a,b:array[1..100] of integer;
    i,j,min,n,k:integer;
begin
ClrScr;
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a[i]:=random(20)-8;
  Write(a[i],'  ');
 end;
Writeln;
min:=a[1];
for i:=2 to n do
 if a[i]<min then
  min:=a[i];
 for i:=1 to n do
  if a[i]<>min then
   begin
    k:=k+1;
    b[k]:=a[i];
   end;
Writeln('Min ',min);
for i:=1 to k do
 Write(b[i],'  ');
Readln;
end.

M
MetalFan

Модератор: Пользуйтесь кнопкой КОД

Это сообщение отредактировал(а) MetalFan - 4.12.2011, 10:41

Vaz007

Дата 9.12.2011, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

Репутация: нет
Всего: нет

Может ты имеешь ввиду так :

Код


uses
  SysUtils;
  type TMas=array[1..100] of integer;

  var a,b:TMas;
   // var i,j,min,n,k:integer;
  procedure Mas(var X,Y:TMas);
     var i,j,min,n,k:integer;
     Begin
      k:=0;
   Randomize;
    repeat
    Write('n=');
    Readln(n);
    until n in [1..100];
   for i:=1 to n do
 begin
  X[i]:=random(20)-8;
  Write(X[i],'  ');
 end;
 Writeln;
 min:=X[1];
 for i:=2 to n do
 if X[i]<min then
  min:=X[i];
 for i:=1 to n do
  if X[i]<>min then
   begin
    k:=k+1;
    Y[k]:=X[i];
   end;
 Writeln('Min ',min);
 for i:=1 to k do
 Write(Y[i],'  ');
 Readln;

     End;

begin
   Mas(a,b);
 {k:=0;
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a[i]:=random(20)-8;
  Write(a[i],'  ');
 end;
Writeln;
min:=a[1];
for i:=2 to n do
 if a[i]<min then
  min:=a[i];
 for i:=1 to n do
  if a[i]<>min then
   begin
    k:=k+1;
    b[k]:=a[i];
   end;
Writeln('Min ',min);
for i:=1 to k do
 Write(b[i],'  ');
Readln;
             }

end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »