profile
Опубликовано 6 лет назад по предмету Информатика от LeraSmo

Массивы.
Заполнить массив следующими числами: 3,-6,9,-12...30

  1. Ответ
    Ответ дан duzer73
    Uses Crt;
    var
    i:integer;
    a:array[1..10] of integer;
    count: integer;
    Begin
    ClrScr;
    for i:=1 to 10 do begin 
    a[i]:=i*3;
    if i mod 2 = 0 then a[i]:= a[i]*(-1);
    write(a[i],' ');
    end;
    End.
Самые новые вопросы