VPF::[Pascal] Oбразуют ли эл-ты упоряд.последов-ть

elllektra

Дата 14.5.2007, 17:43 (ссылка)

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

Загрузка ...

Новичок

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

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

M
Kuvaldis

Не забываем указывать язык программирования в названии темы!

Дан массив, состоящий из N целых чисел. Определить, образуют ли элементы упорядоченную последовательность. Если да, то оставить массив без изменения. В противном случае удалить из массива те элементы, у которых порядковые номера делятся на 4. Значение номера определяется по положению в исходном массиве. (под удалением элемента массива подарузумевается смещение всех следующих за ним элементов влево на 1 позицию. Последнему элементу присваивается значение 0 )

Код


Program proga3;
uses crt;
type
    mas=array[1..100] of integer;
var
    a:mas;
    n,i:integer;
Begin
    ClrScr;
    write(' Vvedite kolvo el-v massiva: ');
    readln(n);
    write(' vvedite elementi: ');
    For i:=1 to n do
        Begin
            read(a[i]);
            If a[i+1]>a[i] then
                Begin
                    For i:=1 to n do
                        Begin
                            if i mod 4=0 then a[i]:=0;
                            write(' elem obraz upor posl: ',a[i]);
                            readln
                        End;
                
        
                readln;
        End
End.

Это сообщение отредактировал(а) Alexeis - 17.5.2007, 12:07

Misha_White

Дата 16.5.2007, 07:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

elllektra,

Код


program P1;
Uses crt;
Type mas=Array[1..100] of integer;
Var A:mas;
    i,j,n:integer;
    flag:boolean;
begin
 ClrScr;
  flag:=true;
  write('Vvedite N');
  readln(n);
 Writeln('Vvedite elem.:');
  for i:=1 to n do
   readln(a[i]);
 for i:=1 to n-1 do
  if a[i]>a[i+1] then
   begin
    flag:=false;
    Break;
   end;
 if not(flag) then
  for i:=1 to n do
   if (i mod 4)=0 then
    begin
     for j:=i to n-1 do
      a[j]:=a[j+1];
     a[n]:=0;
    end;
 Writeln('Rez:');
  for i:=1 to n do
   writeln(a[i]);
 readln;

end.

Не надо создавать кучи одинаковых тем!!!

--------------------

Я не волшебник... я только учусь...

Alexeis

Дата 17.5.2007, 12:07 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

M
Alexeis

Модератор: тема дубликат объединена с текущей.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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