Question

СРОЧНО!!! сформировать массив из 2 строк и 3 столбцов заполнить любым известным образом и если в этом массиве есть элемент равный 2 то вывести на экран YES если нет то вывести NO.

Answer 1

Ответ:

program z;

var m: array [1..2, 1..3] of integer;

i,j,k: integer;

begin

for i := 1 to 2 do

begin

for j := 1 to 3 do

begin

m[i,j] := random(10);

write(m[i,j], ' ')

end;

writeln()

end;

k := 0;

for i := 1 to 2 do

for j := 1 to 3 do

if m[i,j] = 2 then k := 1;

if k<>0 then write('YES') else write('NO')

end.