Предмет: Информатика,
автор: jinjon
(пожалуйста помогите )
заполнить массив из 12 элементов случайными числами от -20 до 10. вынести индексы отрицательных элементов.
Ответы
Автор ответа:
1
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.
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.
jinjon:
спасибо огромное
Похожие вопросы
Предмет: Русский язык,
автор: ррольмрл
Предмет: Английский язык,
автор: Покемошка01
Предмет: Українська мова,
автор: ket1404
Предмет: Математика,
автор: Mmmsesl