day & night

Язык Дельфи, Последовательность
Дата обновления: , перейти к новому сообщению
icon13
#1
Чернов Владимир



Новичок


Группа: Пользователи
Сообщений: 4
Регистрация: 11.05.2010
Пользователь №: 1.728.187


Респектов: 0
----------


Предупреждений:

1) Даны целые числа а1,..., а50. Получить последовательность
b1,..., b50, которая отличается от исходной тем, что все нечет-
ные члены удвоены.


2) Даны натуральное число n, действительные числа а1,..., аn.
Получить: min(a1,..., an).[COLOR=#00008B]
User is offline
Go topGo end
 
Ответов(1 - 1)
13.05.2010 - 17:56
#2
charodey_mag



Опытный юзверь
**

Группа: Пользователи
Сообщений: 147
Регистрация: 15.02.2007
Из: Opera
Пользователь №: 335.462


Респектов: 22
-----X----


Предупреждений:

Примерно так:
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];
User is offline
Go topGo end
Вид темы: [ Линейный ] · Стандартный · Режимы сортировки: [ По возрастанию (0-9) ] · По убыванию (9-0)

 
Topic Options
Сейчас: 27.04.2024 - 22:28
 Мобильная версия | Lite версия
▲
SoftoRooM © 2004-2024