Напишите процедуру в паскале, которая принимает параметр – натуральное число n – и выводит на экран линию из n символов '–'.

Var
    n: integer;

procedure WriteNSymbols(n: integer; c: char);
var
    i: integer;
begin
    for i := 1 to n do
        write(c);
end;

begin
    readln(n);
    WriteNSymbols(n, '-');
end.

program z1;

const n=8;

var a:array [1..n] of integer;

i,m: integer;

begin

writeln ('Результаты заплыва: ');

for i:= 1 to n do

begin

write(i,'-й: ');

readln(a[i])

end;

writeln;

m:=a[i];

for i:= 1 to n do

if a[i]<m then m:=a[i];

writeln('Лучший: ',m)

end.

program z2;

const n=12;

var a:array [1..n] of integer;

i,m: integer;

begin

writeln ('Массив: ');

for i:= 1 to n do

begin

write(i,'-й элемент: ');

readln(a[i])

end;

writeln;

m:=a[i];

for i:= 1 to n do

if a[i]>m then m:=a[i];

writeln('Максимальный: ',m)

end.

Объяснение:

Сначала вводим элементы массива.

Затем предполагаем, что первый элемент наименьший (1 задача) или наибольший (2 задача). Потом сравниваем элементы массива с переменной, в которую записали первый элемент, и меняем переменную, если условие срабатывает. Выводим результат на экран.

Я буду писать часть предложения, а внизу табличку, чтобы понятнее было))

Набрать 9 литров в первую ёмкость.

1. 9 л      2. 0л (пока что) 

Перелить 5 литров во вторую ёмкость.

1.4 л       2. 5л

Из второй ёмкости вылить всю воду

1.4л        2. 0л

И из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.

1.0 л      2. 4л

Набрать полную первую ёмкость

1. 9л     2. 4л

И из неё перелить во вторую 1 литр.

1. 8л     2. 5л

Воду из второй емкости вылить

1.8 л     2. 0л

И из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров

1. 3л     2. 5л

Вот и все!!