Опубликовано 26.01.2018 по предмету Информатика от Гость

ПОМОГИТЕ. 30 БАЛЛОВ Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 8, то заменить их 0.
язык паскаль!

Ответ оставил Гость

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger(n=),0,9); a.Println;
  a.Transform(t->t=8?0:t); a.Println
end.

Пример
n= 20
2 8 5 1 3 8 4 6 2 2 4 4 6 2 8 5 1 8 0 5
2 0 5 1 3 0 4 6 2 2 4 4 6 2 0 5 1 0 0 5

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы