// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Массив A:'); a.Println;
var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray;
writeln('Массив B:'); b.Println;
end.
Пример:
Массив A:
7 -4 -9 2 6 8 5 -10 8 8
Массив B:
-4 -10
l = list(map(int,input().split())) # <em>ввод чисел
</em>
a = [] # массив для вторых цифр
for i in range(len(l)):
a.append(l[i] % 10) # <em>заполнение массива вторыми цифрами
</em>
print(l[a.index(max(a))]) # <em>вывод числа, в котором вторая цифра больше </em>
Ответ:
Вид цикла - <em><u>вложенный</u></em> (3)
Объяснение:
Вложенный цикл, т.к. внутри <em>for</em><em> </em>находится ещё один <em>for</em>.
Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('min = ',min);
for i:=1 to n do
if a[i]=min then a[i]:=99;
writeln('Полученный массив:');
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
Исходный массив:
5 13 9 13 19 3 20 5 9 3
min = 3
Полученный массив:
5 13 9 13 19 99 20 5 9 99