{% else-1 %}
Обновить | Подписаться | Поднять тему
Чтобы выполнить действие авторизируйтесь или пройдите регистрацию на сайте.
1. [автор] (11 авг 2014, 17:08) [0/0] [0] [отв] [спам] [под] +1 | -1

Дан массив, содержащий 30 целых чисел. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти минимально трехзначное число, записанное в этом массиве. Если такого числа нет то нужно вывести сообщение об этом.



const
n=30;
var
a: array [1..n] of integer;
i, j, min: integer;
begin
for i:=1 to n do
readln(a[i]);
.......
end.




На паскалееее!!!!! кину 3 р арбитраж и +

2. (11 авг 2014, 17:09) [1/0] [1] [отв] [спам] [под] +1 | -1

ну чё уж там, 40 копеек бы кидал сразу

3. [автор] (11 авг 2014, 17:11) [0/0] [0] [отв] [спам] [под] +1 | -1
МАНЬЯК ЧИКАТИЛО,

Если решишь две задачи 10 р кину тебе)))


Изм. 1 раз. / Посл. изм. (11 авг 2014, 17:12)
4. (11 авг 2014, 17:11) [1/0] [1] [отв] [спам] [под] +1 | -1
МАНЬЯК ЧИКАТИЛО,

оффтоп прекратил *

5. (11 авг 2014, 17:13) [0/0] [0] [отв] [спам] [под] +1 | -1
Maratos668,

Я не могу работать за такие большие деньжищи

6. [автор] (11 авг 2014, 17:14) [0/0] [0] [отв] [спам] [под] +1 | -1
МАНЬЯК ЧИКАТИЛО,

Я тоже отказалсяDDD? Из за этого кого нить другого прошуDDD


Изм. 1 раз. / Посл. изм. (11 авг 2014, 17:14)
7. (11 авг 2014, 17:15) [0/0] [0] [отв] [спам] [под] +1 | -1

min:=100;
for i:=1 to N do
if (a[i]>=20) and (a[i]<=min) then
min:=a[i];
writeln(min);

8. [автор] (11 авг 2014, 17:16) [0/0] [0] [отв] [спам] [под] +1 | -1
МАНЬЯК ЧИКАТИЛО,

А почему ты min присвоил 100? а не 1000
Добавлено 11.08.14 в 17:18:33:
и причем тут 20???

9. (11 авг 2014, 17:19) [0/0] [0] [отв] [спам] [под] +1 | -1
Maratos668,

minimum

10. [автор] (11 авг 2014, 17:24) [0/0] [0] [отв] [спам] [под] +1 | -1
ЗЕЛЁНЫЙ ШЕРШЕНЬ,

Он условие вообще читал???

Чтобы писать сообщения авторизируйтесь или пройдите регистрацию на сайте.
Подписаны: 0
Скачать тему | Файлы темы | Фильтр сообщений