(пожалуйста помогите ) заполнить массив из 12 элементов случайными числами от -20 до 10. вынести индексы отрицательных элементов.
(пожалуйста помогите )
заполнить массив из 12 элементов случайными числами от -20 до 10. вынести индексы отрицательных элементов.
Гость
Ответ(ы) на вопрос:
Гостьvar
n: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
n[i]:=random(31)-20;
writeln('n[', i, '] = ', n[i]);
end;
for i:=1 to 12 do
if n[i]<0 then write(i, ' ');
end.
Не нашли ответ?
Похожие вопросы