1.
program ll1;
var A: array[1..20] of integer;
i: integer;
begin
Randomize;
for i:=1 to 20 do
begin
A[i]:=random();
if A[i] mod 2 = 0 then writeln(A[i]);
end;
end.
2 .
program ll1;
const N = 20;
var A: array[1..20, 1..20] of integer;
i, j, k: integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
readln(A[i, j]);
if (A[i, j] >= 0) and (A[i, j] < 10) then
k:=k+1;
end;
writeln(k);
end.
3.
program ll1;
var A: array[1..20] of integer;
k, x, y: integer;
begin
Randomize;
readln(x);
readln(y);
for k:=1 to 20 do
begin
A[k]:=random();
if A[k] >= 0 then
A[k]:=x;
else
A[k]:=y;
end;
end.
1.
program ll1;
var A: array[1..20] of integer;
i: integer;
begin
Randomize;
for i:=1 to 20 do
begin
A[i]:=random();
if A[i] mod 2 = 0 then writeln(A[i]);
end;
end.
2 .
program ll1;
const N = 20;
var A: array[1..20, 1..20] of integer;
i, j, k: integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
readln(A[i, j]);
if (A[i, j] >= 0) and (A[i, j] < 10) then
k:=k+1;
end;
writeln(k);
end.
3.
program ll1;
var A: array[1..20] of integer;
k, x, y: integer;
begin
Randomize;
readln(x);
readln(y);
for k:=1 to 20 do
begin
A[k]:=random();
if A[k] >= 0 then
A[k]:=x;
else
A[k]:=y;
end;
end.
б)
program popb;
uses
crt;
var
x, y: real;
begin
writeln('Введите x, а затем y');
readln(x, y);
if (y <= (- x)) then
writeln('Точка попала в область')
else
WriteLn('Точка Не попала в область');
end.
г)
program popg;
uses
crt;
var
x, y: real;
begin
writeln('Введите x, а затем y');
readln(x, y);
if (((x - 1) * (x - 1) + y * y) <= 1) then
writeln('Точка попала в область')
else
WriteLn('Точка Не попала в область');
end.