Дан массив из 20 элементов. Заполнить его случайными числами из интервала
Дан массив из 20 частей. Заполнить его случайными числами из промежутка [-15,40]
1. Вывести приобретенный массив на экран в строчку через запятую.
2.Заменить все элементы с четными номерами на 1-ый элемент и вывести полученный массив.
3. Подсчитать количество частей массива, кратных 4 и вывести это количество на экран
1 ответ
Юрка Инденбом
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(20,-15,40); a.Println(',');
var i:=1;
while ilt;=a.Length-1 do begin a[i]:=a[0]; i+=2 end; a.Println;
Writeln('Частей, кратных 4: ',a.Where(t-gt;t mod 4=0).Count)
end.
Пример
-2,-1,14,36,-14,-14,15,15,35,1,-12,-12,-14,18,-11,32,-11,-5,28,-13
-2 -2 14 -2 -14 -2 15 -2 35 -2 -12 -2 -14 -2 -11 -2 -11 -2 28 -2
Частей, кратных 4: 2
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(20,-15,40); a.Println(',');
var i:=1;
while ilt;=a.Length-1 do begin a[i]:=a[0]; i+=2 end; a.Println;
Writeln('Частей, кратных 4: ',a.Where(t-gt;t mod 4=0).Count)
end.
Пример
-2,-1,14,36,-14,-14,15,15,35,1,-12,-12,-14,18,-11,32,-11,-5,28,-13
-2 -2 14 -2 -14 -2 15 -2 35 -2 -12 -2 -14 -2 -11 -2 -11 -2 28 -2
Частей, кратных 4: 2
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов