( Вход | Регистрация | Поиск )
Язык Дельфи, Последовательность
Стандартный · [ Линейный ]
Дата обновления: 13.05.2010 - 17:56, перейти к новому сообщению
1) Даны целые числа а1,..., а50. Получить последовательность
b1,..., b50, которая отличается от исходной тем, что все нечет-
ные члены удвоены.
2) Даны натуральное число n, действительные числа а1,..., аn.
Получить: min(a1,..., an).[COLOR=#00008B]
b1,..., b50, которая отличается от исходной тем, что все нечет-
ные члены удвоены.
2) Даны натуральное число n, действительные числа а1,..., аn.
Получить: min(a1,..., an).[COLOR=#00008B]
Ответов(1 - 1)
Примерно так:
1.
for i := 1 to 50 do
if odd(a[i]) then b[i]:=a[i*2] else b[i]:=a[i];
2.
result:=High(integer);
for i := 1 to n do
if a[i]<result then
result:=a[i];
1.
Code
for i := 1 to 50 do
if odd(a[i]) then b[i]:=a[i*2] else b[i]:=a[i];
2.
Code
result:=High(integer);
for i := 1 to n do
if a[i]<result then
result:=a[i];
SoftoRooM © 2004-2024