Ответы на вопрос:
заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)
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.
Популярно: Информатика
-
Zulem12.04.2022 12:49
-
maximkanariks22.08.2020 05:20
-
dimon251217.01.2022 08:06
-
Амиiskdhdm19.11.2021 22:29
-
ALEXDEMI77730.12.2022 23:32
-
AlinaRoz08.06.2021 22:56
-
ALEXGEEK29.08.2021 12:31
-
daha56116.09.2022 11:25
-
ronnedtoby31.03.2020 09:52
-
Ятот30.10.2021 01:40