Задать вопрос
18 апреля, 03:37

Создайте и распечатайте в строчку одномерный массив, длиной N, следующим образом:

А (1) = 14, А (2) = 15, А (3) = 16, А (4) = - 17, А (5) = - 18, А (6) = - 19, А (7) = 20, А (8) = 21, А (9) = 22, ... ?

+2
Ответы (1)
  1. 18 апреля, 04:37
    0
    Const n=15;

    var a:array[1 ... n] of integer;

    z, i:integer;

    begin

    Randomize;

    writeln ('Массив A:') ;

    z:=-1;

    for i:=1 to n do

    begin

    if i mod 3 = 1 then z:=-z;

    a[i]:=z * (13+i) ;

    end;

    for i:=1 to n do write (' A (', i,') = ', a[i]) ;

    writeln;

    end.

    Пример:

    A (1) = 14 A (2) = 15 A (3) = 16 A (4) = - 17 A (5) = - 18 A (6) = - 19 A (7) = 20 A (8) = 21 A (9) = 22 A (10) = - 23 A (11) = - 24 A (12) = - 25 A (13) = 26 A (14) = 27 A (15) = 28
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Создайте и распечатайте в строчку одномерный массив, длиной N, следующим образом: А (1) = 14, А (2) = 15, А (3) = 16, А (4) = - 17, А (5) = ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы