На языке паскаль! задан массив с из 10 элементов. найти номер первого из элементов массива с, имеющего нулевое значение. если таких элементов нет, вывести соответствующее сообщение.
187
382
Ответы на вопрос:
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.
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.
Популярно: Информатика
-
Munas01.02.2022 14:32
-
Hicka02.01.2020 23:00
-
ЯнаВасиленко31.08.2022 03:29
-
polinapolina97122.10.2021 03:34
-
СлаваКпсс1110.05.2020 02:51
-
SAVITAR7565703.08.2021 19:54
-
domaris24607.03.2021 14:19
-
serartem7320.06.2020 12:58
-
AMANBEKBERDIMURAT13.03.2023 16:42
-
Софяйка15.01.2021 20:52