Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

определить если в заштрихованной области массива элемент равный А (массив имеет размерность 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.