Создать массив из 20 чисел случайным образом числом из промежутка от -10 дл 30 вывести элемент массива в строку через 4 позиции
вот что получилось
program e1; var A :array [1..20] of integer ; i:integer; begin for i :=1 to 20 do A[i]:= -10 +random(41); for i :=1 to 20 do write (A[i],'...'); end.Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.