• 24 November 2013
    • Химия
    • Автор: АннаLove11

    Заполнить массив из 1000 элементов значениями индексов массива следующим образом:
    все нечетные элементы должны быть отрицательными, а четные – положительными.
    (А[1] = -1, А[3] = --3, А[5] = -5, А[7] = -7, А[9] = -9,….., А[999] = -999, А[2] = 2, А[4] = 4, А[6] = 6, А[8] = 8, А[10] = 10,…., А[1000] = 1000.) Вывести массив в строку.
    Сделать в Pascal ABC


    • 24 November 2013
    • Ответ оставил: mrkuzka

    Uses crt;
    const n=1000;
    var a:array[1..n] of integer;
    i:integer;
    begin
    for i:=1 to n do
    begin
    if (i mod 2=0) then a[i]:=i;
    if (i mod 2<>0) then a[i]:=-i;
    write(a[i]:5);
    end;
    end.

    Оцените ответ
    • 24 November 2013
    • Ответ оставил: Azizseitkhalil

    Program Task;
    Var a: Array[1..1000] of Integer;
        i: Integer;
    Begin
        For i := 1 To 1000 Do
        Begin
            If i Mod 2 = 0 Then a[i] := i
            Else a[i] := -i;
            Write(a[i], ' ');
        End;
    End.
        

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы