Предмет: Информатика, автор: dpaslar

Заполнить массив A(21) случайными числами в диапазоне от -1 до 17. Выведите его на экран. Pascal abc 9 класс

Ответы

Автор ответа: SanGreen74
0
const 
n=21; 
var a:array[1..n] of real; 
i:integer; 
begin 
randomize; 
for i:=1 to n do begin 
a[i]:=random(18)+-1; 
write(a[i],' '); 
end; 
end.
Похожие вопросы
Предмет: Информатика, автор: Аноним
Предмет: Другие предметы, автор: elizavetaa875