Type
array100 = array[1..100]of integer;
var
x: array100;
i, n, j, t, min, max: integer;
procedure show(x: array100; n: integer);
var i:integer;
begin
writeln();
writeln('Вывод массива[',n,']:');
for i := 1 to n do
write(x[i], ' ');
writeln();
end;
begin
n := 20;
max := -200;
min := 200;
for i := 1 to n do
begin
x[i] := random(2*n) - n;
end;
show(x, n);
for i := 1 to n do
begin
if (x[i] > 0) and (x[i] mod 2 = 1) then begin
if x[i] > max then max := x[i];
if x[i] < min then min := x[i];
end;
end;
writeln('Max = ', max, ' Min = ', min);
i := 1;
while i <= n do
begin
if x[i] = 0 then begin
for j := i + 1 to n do
x[j - 1] := x[j];
n := n - 1;
end
else i := i + 1;
end;
show(x,n);
end.
№5
<span>Самый маленький круг внутри - желтый (квадраты), он находится внутри зеленого круга (прямоугольники), который в свою очередь находится внутри красного круга (четырехугольники). Самый большой круг - множество многоугольников, Он синий
</span>
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''