Сформировать одномерный массив из 15 частей (значения элементовзадаются случайным

Сформировать одномерный массив из 15 частей (значения элементов
задаются случайным образом). Прирастить элемент в 2 раза, если он стоит на
четном месте. Вывести на экран начальный и итоговый массивы.

Задать свой вопрос
1 ответ
For index:=0 to 14 do begin
      mas[index] = random(100);
      write(mas[index], " ");
      if index mod 2 = 0 then begin 
            mas[index]:=mas[index]*2;
      end;
end;
writeln();
for index:=0 to 14 do 
     write(mas[index], " ");

Александра
А в ПаскалеABC сможете сделать?
Коровяк Милена
тоже самое, вроде write и rondom в abs есть, синтаксис вроде таковой же в данном случае, отличия у их вроде при работе с графикой....
Карина
сначала допиши
Юлия Куцкевич
var mas: array [0..14] of integer;
Александра Кубенко
index: integer;
Трошинский Юрок
begin и в конец кода end;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт