Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.
Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.
Ответ:
var
A: array [1..10] of integer;
i : integer;
temp : integer;
begin
Randomize;
for i := 1 to 10 do
begin
A[i] := random(30);
Write(A[i], ' ');
end;
Writeln;
i := 1;
while i < 10 do
begin
temp := A[i];
A[i] := A[i + 1];
A[i + 1] := temp;
inc(i, 2);
end;
Writeln('Новый массив: ');
for i := 1 to 10 do Write(A[i], ' ');
end.
Объяснение:
Гипертекстовым называют документ, который использует внутри себя ссылки на другие документы или сайты. Другими словами это текстовый документ, в котором имеются специальные метки теги. Они используются и распознаются всеми браузерами как переход на другую страницу или документ, тем самым кликнув на ссылку, мы автоматически перенесемся по указанной ссылке на сайт, который указан в ссылке под тегом.
