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

Одномерный массив состоит из нулей и единиц. Заменить нули на единицы и единицы на нули в данном массиве

  1. Ответ
    Ответ дан Аккаунт удален
    Pascal ABC

    Const
    N=30;
    Var
    A:array[1..N]of byte;
    i:byte;
    Begin
    For i:= 1 to N do
     Begin
     A[i]:=random(2);
     Write(A[i],' ')
     End;
     WriteLn;
    For i:= 1 to N do
     Begin
     if A[i]=0 then A[i]:=1
     else A[i]:=0;
     Write(A[i],' ')
     End
    End.

Самые новые вопросы