Массивы в паскале

[Дарья Книга]

Я понимаю,что задачки не сложные,но я ничего не могу сделать
Помогите,пожалуйста)) Вам легко,а мне счастье
1.Заполнить массив размером N геометрической последовательностью с первым элементом а и знаменателем q.
2.Дан массив целых чисел. Нечётные числа увеличить в m раз,чётные- в n раз.
3.дан произвольный числовой массив. Не используя дополнительных массивов,удалить из него наибольший элемент(если таковых несколько,удалить все)

[Serge_Bliznykov]

1-я

Mas[1] :=  a;
for i:=2 to N do
   Mas[i] := Mas[i-1] * q;

2-я

for i:=1 to N do
  if odd(Mas[i]) 
     then Mas[i] := Mas[i] * m
     else Mas[i] := Mas[i] * n;

[Дарья Книга]

а что такое odd ?

[VIK_aka_TOR]

odd это функция определения четности числа...
возвращает true если число нечетное... и false, если число четное...

[Дарья Книга]

А третью кто-нибудь поможет?

[VIK_aka_TOR]

вы немного путаете понятия "помогите" и "сделайте"...
вот вам третья...

var
a: array [1..20] of integer;
i,j, max, index: integer;
begin
  // заполняем массив значениями... 
  for i:=1 to 20 do
    begin
      a[i] := random(50) + 1; // от 1 до 50 числа 
      writeln('a[',i,']=',a[i]);
    end;
  // ищем максимальное значение
  max := a[1];
  for i:=1 to 20 do
    if a[i] > max then
      max := a[i];
  // удаляем элементы сдвигом последующих влево
  index := 0;
  i := 1;
  while ( (i + index) <= 20) do
    begin
      if a[i] = max then
        begin
          index := index +1;
            for j:= i to 20 - index do
              a[j]:= a[j+1];
        end
        else i:= i + 1;
    end;
 writeln('max = ', max);
 // вывод оставшихся элементов
 writeln('Новый массив');
   for i:=1 to 20 - index do
      writeln('a[',i,']=',a[i]);  
end.

[Лубышев]

Если я правильно понял задачку то надо заюзать динамический массив. но в паскале их нет. есть зато в Delphi. Но можно элементы переставлять местами(типа сортировочка) если не принципиально наличие элементов в массиве то можно не удалять их а например просто пометить как удаленные и не выводить на экран
простой пример:

type element=record
visible:boolean;
value:real;
end;

{юзание типа}
var massiv: array[0..10] of element;

[Лубышев]

О меня опередили

Сообщение от VIK_aka_TOR

// удаляем элементы сдвигом последующих влево

мысль та же самая)))
не увидел удаления. передвижки тока а элементы то в массиве остались) просто не вывелись)

[VIK_aka_TOR]

"затерли" значения максимумов... )))
можно конечно через списки сделать...и реализовать удаление как таковое, только это уже будет не массив)... но... судя по всему и такого решения будет вполне достаточно...

[Лубышев]

ну тож не плохой вариант а я просто хотел флаги расставить). но школьникам думаю пойдут оба решения)