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 raf105;
var a,b,c,p,s: real;
begin
write('Введите длины трёх сторон: ');
readln(a,b,c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
if (a < b+c) and (b < a+c) and (c < a+b)
then
begin
writeln ('Треугольник существует.');
writeln ('Периметр треугольника: ',s);
end
else writeln ('Треугольник не существует.');
end.
Программа написана на языке PascalABC.NET