Внутренним железом - хотя бы для того, чтобы его запустить.Операционной системой - чтобы на нем можно было хоть что-то делать.Монитором - чтобы видеть, что происходит.Мышью и клавиатурой - для удобства использования.
30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1
var
a:array[1..15] of integer;
i, count:integer;
begin
count := 0;
writeln('Индексы отрицательных элементов:');
for i := 1 to 15 do
begin
a[i] := 15 - 4 * i;
if a[i] < 0 then
begin
inc(count);
write(i, ' ');
end;
end;
writeln;
writeln('Вего отрицательных элементов - ', count);
end.