Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Возможно, что здесь идет речь о слове "<em>наследование</em>".
Наследование<span> алгоритмов и </span>признаков, например.
Вообще наследование<span> – это способность порождать новые классы </span>объектов<span> от уже существующих объектов.</span>
алг ЧетНечет
нач
цел А
А:= 0
ввод А
если mod(А,2) = 0
то вывод "Число четное"
иначе вывод "Число нечетное"
все
кон