В Pascal используй модуль GraphABC. Можешь почитать про его возможности в интернете.
#include <cstdlib>
#include <iostream>
#include <ctime>
using namespace std;
int main(int argc, char *argv[])
{
int x[10];
srand(time(0));
for(int i=0; i<10; ++i)
x[i]=-rand()%8+5;
long r=(x[0]+2*x[1]+x[2]);
for(int i=2; i<9; ++i)
r*=(x[i-1]+2*x[i]+x[i+1]);
cout <<r<<endl;
system("pause");
return EXIT_SUCCESS;
<span>}</span>
A:=-5;
b:=5 + 7*a= 5 -7*5= -28;
b:= b/2*a=(-28)/2*(-5)=70.
Я думаю, что свидетельство о рождении. С возрастом может быть потеря памяти
Заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)
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.