1) тег <title> отвечает за заголовок страницы
2) атрибут size отвечает за размер шрифта, color - за цвет, face - гарнитуру шрифта
3) тег <img>; Атрибуты: alight, height, width, alt, border, src
4) <img src="2.gif title="Мое фото" width = "450" height = "300" border = "1">
5) <!DOCTYPE html>
<html lang="en" dir="ltr">
<head>
<meta charset="utf-8">
<title>Вариант первый</title>
</head>
<body>
<p>Учеба Учеба</p>
<p>Учеба</p>
</body>
</html>
1.
program z1;
const n=20;
var a:array [1..n] of integer;
i,maxi,mini:integer;
begin
maxi:=1;
mini:=1;
write('Массив А: ');
for i:=1 to n do
begin
a[i]:=random(46)-15;
if a[i] > a[maxi] then maxi:=i;
if a[i] < a[mini] then mini:=i;
write(a[i],' ')
end;
writeln;
writeln('Максимальный элемент a[',maxi,'] = ',a[maxi]);
writeln('Минимальный элемент a[',mini,'] = ',a[mini])
end.
2.
program z1;
const n=20;
var a:array [1..n] of integer;
i,max,min:integer;
begin
max:=-15;
min:=30;
write('Массив А: ');
for i:=1 to n do
begin
a[i]:=random(46)-15;
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
write(a[i],' ')
end;
writeln;
for i:=1 to n do
begin
if a[i]=max then writeln('Максимальный элемент a[',i,'] = ',a[i]);
if a[i]=min then writeln('Минимальный элемент a[',i,'] = ',a[i])
end
end.
Объяснение:
1. Не учитывает повтор элементов. Ищет первый максимальный и первый минимальный элементы.
2. Учитывает повтор элементов, но надо точно задавать max и min исходя из диапазона чисел.
PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)