Есть ответ 👍

На языке паскаль! задан массив с из 10 элементов. найти номер первого из элементов массива с, имеющего нулевое значение. если таких элементов нет, вывести соответствующее сообщение.

187
382
Посмотреть ответы 2

Ответы на вопрос:


Var i,n,k: integer; c: array[1..10] of integer; begin k: =0; for i: =1 to 10 do begin c[i]: = random(10)-5; write(c[i]: 4); if (c[i] = 0) and (k = 0) then begin n: = i; k: =1; end; end; write('   n=',n); end.
Enweys
4,5(34 оценок)

Const       max_length = 10; type       arr = array [0..max_length, 0..max_length] of byte; var       a: arr;       i, j, n, m, k, x, y: byte;       c: char;       f: text; //procedure printmatrix(a: arr); //begin //      for var i : = 0 to max_length do //      begin //              writeln; //              for var j : = 0 to max_length do //                      write(a[i, j], ' '); //      end; //      writeln; //end; procedure labirint(i, j: byte); begin       if (i < = n) and (i > = 0) and (j < = m) and (j > = 0) and (a[i, j] = 0) then begin               a[i, j] : = 1;               k : = k + 1;               labirint(i, j - 1);               labirint(i, j + 1);               labirint(i - 1, j);               labirint(i + 1, j);       end; end; begin       assign(f, 'input.txt');       reset(f);             readln(f, n, m);       for i : = 0 to n do       begin               for j : = 0 to m do               begin                       read(f, c);                       case c of                               'x': a[i, j] : = 2;                               '.': a[i, j] : = 0;                               '+':                                       begin                                               x : = i;                                               y : = j;                                               a[i, j] : = 0;                                       end;                       end;               end;               readln(f);       end;       close(f);       //      printmatrix(a);             labirint(x, y);       writeln(k); //      printmatrix(a); end.

Популярно: Информатика