• №1 составить программу формирования и вывода на экран в строку с тремя знаками после запятой массива, заданного 8-ю вещественными числами из отрезка [-20;20)
    №2 составить программу формирования и вывода на кран в обратном порядке массива,заданного 13 цельными числами из отрезка [5,18]
    №3 составить программу формирования и вывода на экран в столбец массива, зданного 7 цельными числами из отрезка [104,128]

Ответы 4

  • a[i]:=random(41)-20;writeln(a[i]:8:3);end;end.вот эту часть не понимаю
    • Автор:

      jordan9
    • 6 лет назад
    • 0
  • что именно не понятно? команда рандом?
    • Автор:

      grizzly54
    • 6 лет назад
    • 0
  • ну, постараюсь разложить все по полочкам.for i:= 1 to 7 dobegina[i]:=random(25)+104;writeln(a[i]);end;надеюсь понятно для чего мы вводим это в цикл. сразу берется I =1, и в ячейку a[1] кладем число, которое рандомно выбирается из 25 чисел, начиная с 104. потом выводим это число с помощью команды writeln. потом снова возвращаемся к for, и терь прога берет I под значением 2, и т.д. до 7.Что не понятно? :)
  • 1. Program enot;Var A: array[1..8] of real; i:integer;beginfor i:= 1 to 8 dobegina[i]:=random(41)-20;writeln(a[i]:8:3);end;end.2. Program fg;Var a: array [1..13] of integer; i:integer;beginwriteln('первоночальный массив: ');for i:= 1 to 13 dobegina[i]:=random(13)+5;writeln(a[i], ' ');end;writeln('получившийся  массив: ');for i:= 13 downto 1 dowriteln(a[i],' ');end.3. Program enot;Var a: array [1..7] of integer; i:integer;beginfor i:= 1 to 7 dobegina[i]:=random(25)+104;writeln(a[i]);end;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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