Ответы
Ответ дал:
0
program number4;
var a: array[1..10] of integer;
i,k: integer;
Begin
writeln('Введите 10 значений массива');
for i:=1 to 10 do
readln(a[i]);
write('Индексы: ');
for i:=1 to 10 do
if a[i]<0 then
Begin
write(i,' ');
k:=k+1;
End;
writeln(' ');
writeln('Количество отрицательных элементов: ',k);
End.
P.S. Значения массива вводить с клавиатуры.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад