Создать массив из 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.
можно вопрос? зачем присваивать переменной рандом а потом эту переменную присваивать массиву? просто у меня было все также кроме вот этих двух строк и не получалось?спасибо.
Просто переменная random имеет тип integer и из-за этого генерация отрицательных чисел невозможна