begin
var a, b: integer;
repeat
(a, b) := ReadInteger2('введите a и b в одной строке через пробел:');
if a >= b then Println('a должно быть меньше b');
until a < b;
Randomize;
loop 5 do
Print(Random(a, b))
end.
Я так понимаю, массив должен быть заполнен случайными числами? Если нет - отпишите в комментариях, скину код, где элементы массива вводятся с клавиатуры
При копировании кода из IDE на сайт автоматически убирается перенос строки. Будет прикреплен скриншот с тем, как должен выглядеть код
#include <stdlib.h>#include <stdio.h>#include <locale.h>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int mas[11], i, ad, ben; ad = 0; ben = 0; srand(8120); for (i = 1; i <= 10; i++) //цикл заполнения массива случайными числами mas[i] = rand() % 200 - 100; for (i = 1; i <= 10; i++) //цикл вывода массива на экран { printf("%2d ", mas[i]); if (i % 5 == 0)printf("\n"); } for (i = 1; i <= 10; i++) // цикл подсчета количества отрицательных и положительных элементов массива { if (mas[i] > 0)ben++; if (mas[i] < 0)ad++; } printf("\n Количество положительных чисел: %2d", ben); printf("\n Количество отрицательных числе: %2d", ad); printf("\n\n"); system("pause");}
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
ADBC216<span> = </span>711<span>618
</span>AD3416<span> = 44</span><span>340
</span>2F6516<span> = 12</span><span>133</span>
Ответ:
Если забить на указания к решению, можно сделать так:
записываешь уравнение прямой для каждой из сторон
для каждой из сторон можно по формуле вычислить расстояние от данной точки до этой прямой и
взять минимальное значение.
Канонической уравнение прямой на плоскости:
A*x+B*y+C=0
Уравнение прямой через точки A и B:
Параметрической (в векторном виде) :
P=A+(B-A)*t
В скалярной форме:
x=x0+ax*t
y=y0+bx*t
Из этой системы, избавляясь от t, получим каноническое уравнение прямой.
Формула расстояния от точки (x0; y0) до прямой A*x+B*y+C=0:
ro=abs(A*x0+B*y0+C)/sqrt(A^2+B^2)
Объяснение: