program raf105;
const
N = 10;
var
a,b: array[1..N] of integer;
x: boolean;
begin
for var i:=1 to N do
begin
a[i]:= random(15);
b[i]:= random(15);
end;
writeln('A: ',a);
writeln('B: ',b);
write('Вывод: ');
for var i:=1 to N do
begin
x:= False;
for var j:=1 to N do
if a[i] = b[j] then x:= True;
if not(x) then write(a[i],', ');
end;
end.
<h3>PascalABC</h3>
const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
Зайди на сайт(http://4aynikam.ru/) там с лева конвертер, пиши любое число и он те перевидёт в любую степень))И таблица
<em>Вроде</em><em> </em><em>всё</em><em>.</em>
<em>Незабудь</em><em> </em><em>❤️</em><em> </em><em>поставить</em>
A:= 5; - верно
10:= x; - ошибка (в операторе присваивания слева от знака := должна быть переменная
y:= 7,8; - ошибка, правильная запись y:=7.8;
b:= 25; - верно
x:= 2*(a+y); - верно
<span>a:= sqrt(b); - ошибка, a - целая переменная, результат функции sqrt - вещественный</span>