Сформувати одновимірний масив,...

Тема в разделе "Информатика", создана пользователем Big All, 10 янв 2010.

  1. Big All

    Big All New Member

    Сформувати одновимірний масив, в якому всі елементи з непарними номерами на 3 більше свого порядкового номера, а з парними на 3 менше свого порядковогономера
     
  2. genius313

    genius313 New Member

    var
    i,n:integer;
    a:array [1..100] of integer;
    begin
    readln(n);
    for i:=1 to n do
    begin
    if i mod 2 =0 then a:=i-3
    else a:=i+3;
    writeln(a);
    end;
    end.
     

Поделиться этой страницей

Наша группа