program Prog;
var i, MinElement: Integer;
arr: array[1..15] of Integer;
begin
{ задаем значение минимального элемента. изначально
оно дожно быть максимально возможным, так как мы будем
все элементы с ним сравнить и вычислять, какой из них наименьший.
для этого после того, как мы нашли элемент меньше чем имеющийся минимум,
то мы этот минимум изменяем на найденное нами число }
MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,
но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }
randomize; { это чтоб заполнить рандом. числами }
// запоолнение массива рандомом
for i:=1 to 15 do begin
arr[i]:=random(100); { для примера числа будут от 0 до 99 }
{ здесь мы как раз сравниваем с имеющимся минимум и меняем его,
если нашли элемент меньше }
if arr[i]<MinElement then
MinElement:=arr[i]
end;
// вывод всего массива
for i:=1 to 15 do
write(arr[i], ' ');
writeln;
// вывод минимума
writeln('Минимальный элемент: ', MinElement);
end.
var
n, Num, i, j, t: integer;
Count: array[1..12] of integer;
Names: array[1..12] of integer;
begin
for i := 1 to 12 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); { Считываем количество запросов}
for i := 1 to N do
begin
ReadLn(t); {считали очередной запрос}
Count[t] := Count[t] + 1;
end;
{Сортируем массивы Names и Count в порядке убывания значений массива Count}
for i := 12 downto 2 do
for j := 2 to i do
if Count[j - 1] < Count[j] then
begin
t := Count[j];
Count[j] := Count[j - 1];
Count[j - 1] := t;
t := Names[j];
Names[j] := Names[j - 1];
Names[j - 1] := t;
end;
for i := 12 downto 1 do
if Count[i] > 0 then
WriteLn(Names[i], ' ', Count[i]);
end.
Объяснение:
1.Площадь квадрата(цел числа):
a = int(input("Введите сторону квадрата(целые числа): "))
print("S =", a*a)
2.Периметр квадрата(вещ. числа):
a = float(input("Введите сторону квадрата(вещественные числа): "))
print("P =", a*4)
3.Площадь треугольника:
a = int(input("Введите длину основания треугольника(целые числа):"))
h = int(input("Введите высоту треугольника(целые числа):"))
print("S =",a*h/2)
4.Периметр треугольника:
print("P =", int(input("Введите длину первой стороны треугольника(целые числа):")) + int(input("Введите длину второй стороны треугольника(целые числа):")) + int(input("Введите длину третьей стороны треугольника(целые числа):")))
5.Площадь круга:
Pi = 3
R = int(input("Введите радиус круга: "))
print("площадь круга примерно равна(Pi=3)", Pi*R*R)
6.Длина окружности:
Pi = 3,1415926535
R = float(input("Введите радиус круга: "))
print("длина окружности круга примерно равна", 2*Pi*R)
7. Имя:
name = input("Как тебя зовут? ")
print("Привет,", name,"!")
Объяснение:
Простая программа, для начала мы считаем первое значение сразу в min(это сделано чтобы не давать минимуму значение какой-то константы), затем запускаем цикл, в котором будем вводить число и тут же проверять его на наше условие (поиск минимума). Ну и в конце выводим результат, если что-то непонятно - в комментарии.
var
x, min, i : integer;
begin
writeln('Введите 15 значений: (каждое на новой строке): ');
readln(min);
for i := 1 to 14 do
begin
readln(x);
if min > x then
min := x;
end;
writeln('Минимальное число в последовательности:', min);
end.