Массив из 15 элементов из интервала от -10до10 вывести в строку. на куб этого числа,вы?

Массив из 15 элементов из интервала от -10до10 вывести в строку. на куб этого числа,вы??ести повторно.
Гость
Ответ(ы) на вопрос:
Гость
Вот не уверенна, что правильно Program A1; Uses crt; Var A: array [1..15] of integer; i: integer; Begin clrscr; for i:=1 to 15 do begin a[i]:= random (10-(-10)+1)+(-10); write (a[i],' '); end; writeln; for i:=1 to 15 do begin if i mod 2=0 then a[i]:=5; end; for i:=1 to 15 do write {a[i].' '); readln; readkey; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы