Sazan
5 год назад
Пожалуйста посчитайте пожалуйста с Заданиеми в паскале! 1) Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений. 2) Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0.
ОТВЕТЫ
Алекси
Oct 24, 2020
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t->t.IsEven?t+1:t); a.Println
end.
4 8 9 2 5 6 3 5 8 9
5 9 9 3 5 7 3 5 9 9
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t->t.IsOdd?3*t:0); a.Println
end.
3 7 9 4 5 8 8 3 7 8
9 21 27 0 15 0 0 9 21 0
459
Смежные вопросы:
