Создать массив из 10 целых чисел при помощи генератора случайных чисел (a[i]:=random). Вывести массив. Найти и вывести отрицательные элементы массива, а также их номера.

Question

Информатика

Олимпий

27 декабря, 04:13

Создать массив из 10 целых чисел при помощи генератора случайных чисел (a[i]:=random). Вывести массив. Найти и вывести отрицательные элементы массива, а также их номера.

+1

Ответы (1)

Знаете ответ?

Калуф · Answer 1

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.