задача 1.
заполнить массив из 10 элементов случайными числами в интервале -10..10 и выполнить циклический сдвиг влево без первого элемента
задача 2.
заполнить массив из 10 элементов случайными числами в интервале 0..4 и вывести номера всех элементов равных x
petyaGavrikov:
Что значит "циклический сдвиг влево без первого элемента"?
Ответы
Ответ дал:
0
// PascalABC.NET 3.3
1.
begin
var a:=ArrRandom(10,-10,10); a.Println;
a:=a[1:]; a.Println;
end.
Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8
2.
begin
var a:=ArrRandom(10,0,4); a.Println;
var x:=ReadInteger('x =');
a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.
Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9
1.
begin
var a:=ArrRandom(10,-10,10); a.Println;
a:=a[1:]; a.Println;
end.
Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8
2.
begin
var a:=ArrRandom(10,0,4); a.Println;
var x:=ReadInteger('x =');
a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.
Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9
Вас заинтересует
4 месяца назад
4 месяца назад
2 года назад
2 года назад