var
a: <em>real</em>;
i: <em>byte </em>:= 30;
begin
while (i <= 60) do
begin
writeln(<em>'S = 0.5 * 4см * '</em>, i / 10, <em>'см = '</em>, 0.2 * i, <em>'см^2'</em>);
i += 2;
end;
end.
План
1.Мальчик получил двойку.
2. Мама и сестра огорчены.
3. Младший брат и собака все равно рады видеть мальчика.
4.Делу время, потехи час.
Главный герой - школьник.
Мальчик никогда не успевал делать домашнее задание. Мама не удивлялась двойками.
Var
arr : array [1..10] of integer; //Объявляем массив
i, min, max : integer; //Индекс, позиция минимального элемента, позиция максимального элемента
begin
min := 1;
max := 1;
for i := 1 to 10 do
arr[i] := Random(20) - 10; //Заполняем массив
for i := 2 to 10 do //Находим позицию максимального элемента
if arr[i] > arr[max] then
max := i;
for i := 2 to 10 do //Находим позицию минимального элемента
if arr[i] < arr[min] then
min := i;
writeln('Максимальный элемент: ', arr[max], '; его позиция: ', max);
writeln('Минимальныйй элемент: ', arr[min], '; его позиция: ', min);
<span>end.</span>