//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.
</span>
Задание 1:
Строку 1 и столбец A заполняете единицами. В ячейку B2 вводите формулу =A2+B1, затем её копируете (делаете протяжку)
Задание 2:
Строку 1 и столбец A заполняете по образцу (0 и 1). В ячейку B2 вводите формулу =A1+B1, затем её копируете (делаете протяжку)
<span>лрчсупгхлнг, нсптябхзу, ъзосезн
</span>
Эквалайзеры и звукорежиссеры
Если это был былый шар, то он его достал из чёрных, так как в смеси были бы только чёрные, если это чёрный шарик, то он его достал из коробки белый, , так как в смеси были бы только белые.