Здесь очень просто: телевидение и интернет ( можно добавить телефон)
Написано на Pascal
var
a,b,i:integer;
begin
writeln('Введите длины сторон шестиугольника:');
for i:=1 to 6 do begin
write('Длина '+i+' стороны: ');
readln(a);
b:=b+a;
end;
writeln('Периметр равен: '+b);
end.
Program chisl;
var i,j:integer;
mass1:array[1..5] of integer;
mass2:array[1..5] of integer;
begin
j:=0;
for i:=1 to 5 do begin
read(mass1[i]);
if mass1[i]>=10 then begin
j:=j+1;
mass2[j]:=mass1[i];
end;
end;
for j:=1 to j do
write(mass2[j]:3);
<span>end.</span>
Uses
Crt;
const
n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min := 1000;
for i := 1 to n do
begin
a[i] := Random(100);
Write(a[i], ' ');
if min > a[i] then min := a[i]
end;
Writeln;
Writeln('Минимальный элемент равен ', min)
end.
<u>Тестовое решение:</u>
Исходный массив
32 35 39 60 35 66 44 50 14 77
Минимальный элемент равен 14