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

Помогите решить пожалуйстаааааа :(

Составьте программу заполнения массива А[N,N] нулями и единицами в шахматном порядке.

  1. Ответ
    Ответ дан Deiskos
    program ayaya;

    uses sysutils;

    const N = 1000;
    var YArr: array [0..N] of array [0..N] of integer;
    i, j: integer;
    fst, cur: boolean;

    BEGIN
    fst = 0;
     for i:=0 to N do begin
    cur = fst;
      for j:=0 to N begin
       if(cur) then YArr[i, j] = 0 else YArr[i, j] = 1;
       cur = not cur;
      end;
     fst = not fst;
     end;
    END.

    1. Ответ
      Ответ дан akimovanata007
      она не работает
    2. Ответ
      Ответ дан Deiskos
      Массив я сформировал. А куда его приткнуть это уже вам решать.
Самые новые вопросы