Задать вопрос Регистрация
Помочь другим

  • составить программу, которая формирует массив, содержащий 15 случайных целых чисел, принадлежащий промежутку [0; 8], и преобразует элементы массива по следующему правилу: к чётному числу прибавляет 1, а нечётное умножает на 2.

Ответы 1

  • var  i: integer;  a: array [1..15] of integer;

     

    begin  write('Исходный массив: ');  for i:= 1 to 15 do //Формируем и распечатываем массив  begin    a[i]:= random(8);     write(a[i],' ');  end;  writeln; //Перевод на новую строку  write('Преобразованный массив: ');  for i:= 1 to 15 do  begin    if a[i] mod 2 = 0 then a[i]:= a[i] + 1 {Если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}    else a[i]:= a[i] * 2;    write(a[i], ' ');  end;  writeln; {Перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}end.

    Отметь решение, как лучшее плиз)

       

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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