• Заполнить массив из 10 элементов случайными числами из интервала от -10 до 10, вывести на экран , а затем увеличить каждый элемент массива на 1 и повторно вывести на экран

Ответы 2

  • Извините пожалуйста, забыл написать: перед вторым циклом for впишите "Writeln()";
  • Pascal:program project1;var a:array[1..10] of integer;      i:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(20)-10;write(inttostr(a[i]) + ' ' );end;for i:=1 to 10 dobegininc(a[i]);write(inttostr(a[i]) + ' ' );end;end.
    • Автор:

      octavio15
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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