Определить если в заштрихованной области массива элемент равный А (массив имеет размерность n*n).
Определить если в заштрихованной области массива элемент равный А (массив имеет размерность n*n).
Гость
Ответ(ы) на вопрос:
ГостьЗаштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива) Program sandglass;
uses crt;
const n=19;
var mas: array[1..n,1..n] of integer;
i,j,a,yes: integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=random(101)-50;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j]:4);
writeln;
end;
yes:=0;
write ('Please input A=');
read(a);
writeln;
for i:=1 to n do
for j:=1 to n do
begin
if (i<=j) and (i+j<=n+1) and (mas[i,j]=a) or (i>=j) and (i+j>=n+1) and (mas[i,j]=a) then
begin
yes:=1;
end;
end;
if yes<>0 then
write ('Yes!')
else
write ('No!');
end.
Не нашли ответ?
Похожие вопросы