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

Ответы 3

  • спасибо
    • Автор:

      joel784
    • 6 лет назад
    • 0
  • пожалуйста
    • Автор:

      gracelyn
    • 6 лет назад
    • 0
  • вот не уверенна, что правильно Program A1;Uses crt;Var A: array [1..15] of integer;i: integer;Begin clrscr;for i:=1 to 15 dobegina[i]:= random (10-(-10)+1)+(-10);write (a[i],' ');end;writeln;for i:=1 to 15 dobeginif i mod 2=0 then a[i]:=5;end;for i:=1 to 15 dowrite {a[i].' ');readln;readkey;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years