Если индекс элемента массива четный, то элемент возвести в квадрат, если нечетный – удвоить

@marishka_k · Регистрация: 04.06.2013

Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Сформировать второй массив по правилу: если индекс элемента исходного массива четный, то элемент возвести в квадрат, если нечетный – удвоить. Вывести исходный и полученный массивы на печать.

случайными числами я заполнила, а как сделать "если индекс элемента исходного массива четный, то элемент возвести в квадрат, если нечетный – удвоить."? помогите,пожалуйста!

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  a, b : Array [1..20] Of Integer;
begin
   randomize;
  For i := 1 To 20 Do
    Begin
      a[i] := -25 + Random(51);
      memo1.Lines.Add(inttostr(a[i]));
          End;
         end;

@MrOnlineCoder · 12.06.2013, 17:46

Delphi

 For i := 1 To 20 Do
    Begin
      if odd(a[i]) = true then b[i]:=a[i]*a[i] else b[i]:=a[i]*2; //Условие
      memo1.Lines.Add(inttostr(b[i]));
          End;
         end;

Функция odd возвращает true, если число четное.

@volvo · 13.06.2013, 12:22

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

Функция odd возвращает true, если число ~~четное~~ НЕчетное.

Fixed. По английски odd - нечетный, even - четный...

Так что в программе надо будет перед odd добавить not:

Delphi

For i := 1 To 20 Do
Begin
   if not odd(a[i]) then b[i]:=a[i]*a[i] else b[i]:=a[i]*2; //Условие
   memo1.Lines.Add(inttostr(b[i]));
End;

Опции темы