1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?
2)что означает слово window с английского?
3)...-это белая смерть?
4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?
5)что маслом не испортишь?
6)транспортное средство,предназначеное для движения по рельсам?
РИС
ОКНО
СОЛЬ
ВЕТКА
КАША
ВАГОН
nn = 50;
var
a,b,nb:array[1..nn] of integer;
i,n,j: integer;
begin
Write('Введите количество элементов в массиве (n<51): ');
Read(n);
Writeln('Вводите элементы массива');
j:=0;
for i:=1 to n do
begin
Read(a[i]);
if a[i]<0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end
end;
if j>0 then begin
Write('Отрицательные элементы: ');
for i:=1 to j do Write(b[i],' ');
Writeln;
Write('Индексы отрицательных элементов в массиве:');
for i:=1 to j do Write(nb[i]:3);
Writeln
end
end.
Результаты тестирования:
Введите количество элементов в массиве (n<51): 9
Вводите элементы массива
3 5 -2 3 -2 0 -6 -8 1
Отрицательные элементы: -2 -2 -6 -8
Индексы отрицательных элементов в массиве: 3 5 7 8
Введите количество элементов в массиве (n<51): 8
Вводите элементы массива
-1 -2 -3 -4 0 -1 2 3
Отрицательные элементы: -1 -2 -3 -4 -1
Индексы отрицательных элементов в массиве: 1 2 3 4 6