СРОЧНО!!! сформировать массив из 2 строк и 3 столбцов заполнить любым известным образом и если в этом массиве есть элемент равный 2 то вывести на экран YES если нет то вывести NO.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.