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