Создать массив a из десяти целых чисел, принадлежащих промежутку [-50;50). Вывести полученный массив на экран
Создать массив a из десяти целых чисел, принадлежащих промежутку [-50;50). Вывести полученный массив на экран
Гость
Ответ(ы) на вопрос:
Гостьvar A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
end.
Не нашли ответ?
Похожие вопросы