1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю
Карп корп кора коза по другому не знаю
Можно обойтись без массива и этим сэкономить память компьютера.
Можно также вывести такую матрицу (в виде песочных часов) любого размера. Для этого нужно только изменить значение n в строке
const n=5
Program Pentelemon;
uses crt;
const n=5;
var
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
for i:=1 to n do
begin
for j:=1 to n do
begin
if ((j>=i) and (i+j<=n+1)) or ((j<=i) and (i+j>=n+1)) then
write ('1 ')
else
write ('0 ');
end;
writeln();
end;
end.