Знаковая
%просто текст, потрібно мінімум 20 символів %
Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>
Разделения на колонки не видны. понять можно только проверит зайдя на "разметка страницы-колонки" или во время написания самого текста
Ерунда, а не задача.... трижды одно и то же разными словами.
<span><span>ночь - ноль - соль - сель - сень - день</span>
рота - </span>нота - нога <span>- нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума </span>- пума <span>- сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век</span>