Организуйте массив.поменяйте на дисплей значения и индексы элементов,модуль значения которых меньше 10. как описать следующие этапы по этой : - постановка , описание,разработка алгоритма решения заачи,программирование,описание отладки программы на пк
var
a: array[1..10]of integer;
i: integer;
begin
writeln('Массив: ');
for i := 1 to 10 do
begin
a[i] := random(50, -50);
write(a[i]:4)
end;
writeln;
writeln('Элементы с модулем значения меньше 10:');
for i := 1 to 10 do
if abs(a[i]) < 10 then writeln('индекс: ', i, ', значение: ', a[i])
end.