Заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)
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.
Program JuliaVanina;
uses crt;
var
r,min,max: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
min:=0;
max:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число, не превышающее 30000 по модулю');
writeln('(или введите 0 для конца последовательности) ');
while (r<>0) and (k<1000) do
begin
write('Ввод:');
readln (r);
if abs(r)<30000 then
begin
if min>r then min:=r;
if max<r then max:=r;
k:=k+1;
end
else
begin
writeln ('вы ввели слишком большое по модулю число');
writeln ('Это число не будет учтено');
end;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Разность min и max составляет ',max-min);
end.
Проверено - работает на Паскаль АВС