<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Минимальный элемент ',a.Min);
end.
<u>Пример</u>
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50
n - кол-во чисел
i - цикловая переменная
а - число
max - максимальное число, оканчивающееся на 3
Язык програмирования: Паскаль.
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 3) and (a > max) then
max := a;
end;
writeln(max)
end.
Если на фото не понятно вот значения:
A-0011
B-0101
неА-1100
неВ-1010
неА+В-1000
неА&В-1110
1 буква занимает всегда один байт памяти, восклицательный знак 4 кажется
Var a,b :real;
begin
Write('Введите 2 числа а и b'); ReadLn(a,b);
Write('Среднее геометрическое чисел ',a, ' и ',b,' = ',sqrt(a*b));
end.