Var a,b,c:integer; n:array [1..10] of integer; begin writeln('введите номера элементов для сравнения'); readln(a,b); randomize;{скажите что посмотрели эту функцию в интернете и она нужна для подготовки программы к применению функции рандом} for c:=1 to 10 do begin n[c]:=random(-20,20);{так мы в массив ставим случайное число в диапазоне от -20 до 20} writeln(n[c]); end; if n[a]<n[b] then writeln('меньший элемент массива под номером ' ,a,' больший элемент массива под номером ' ,b) else writeln('меньший элемент массива под номером ' ,b,' больший элемент массива под номером ' ,a); end.
{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?} var a,b,c:real; begin writeln('введите стороны треугольника'); readln(a, b, c); if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует') else writeln('треугольник не существует'); end.
{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7} var N:integer; begin writeln('введите число'); readln(N); if n mod 10= 7 then writeln('оканчивается цифрой 7') else writeln( 'не оканчивается цифрой 7'); end.
