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