1) Даны целые числа а1,..., а50. Получить последовательность
b1,..., b50, которая отличается от исходной тем, что все нечет-
ные члены удвоены.
2) Даны натуральное число n, действительные числа а1,..., аn.
Получить: min(a1,..., an).[COLOR=#00008B]
Примерно так:
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