|
Вопрос # 5 176/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Задача на одномерныймассив,
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.
 |
Вопрос задал: strannik23 (статус: Посетитель)
Вопрос отправлен: 11 апреля 2011, 13:09
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Толяныч
Здравствуйте, strannik23!
Var i,N,Ilt,Ieq,Igt : integer ;
mas : array [1..1000] of real ;
k : real ;
Begin
Ilt := 0 ; Ieq := 0 ; Igt :=0 ;
for i := 1 to N do
if (mas[i]=k) then Inc (Ieq)
else if (mas[i]<k) then Inc (Ilt)
else Inc (Igt) ;
end ;
// ввод массива и числа к предоставляю сделать аффтару.
// мне стыдно было писать такой простой код, я усадил
// за клаву кота, сам пошел пить кофе.
// Скобки в if - это у него, видимо, рецидив 'C'.
 |
Ответ отправил: Толяныч (статус: 4-ый класс)
Время отправки: 11 апреля 2011, 15:14
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 11 апреля 2011, 13:41; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 11 апреля 2011, 13:21 [#1]:
Ты чо, издеваешься?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
strannik23 (статус: Посетитель), 11 апреля 2011, 13:23 [#2]:
ну прости пож-та, очень надо
|
|
|
min@y™ (статус: Доктор наук), 11 апреля 2011, 13:27 [#3]:
Цитата (strannik23):
ну прости пож-та, очень надо
Ты этими лабами торгуешь, штоли? Напиши сам, задача-то для децкого сада!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
strannik23 (статус: Посетитель), 11 апреля 2011, 13:28 [#4]:
нет, не торгую, у меня практика по программированию, а нифига не знаю((
|
|
|
min@y™ (статус: Доктор наук), 11 апреля 2011, 13:32 [#5]:
Цитата (strannik23):
у меня практика по программированию, а нифига не знаю((
А чо, вместо лекций вотку жрал? Признавайся!!!
В методичке ж есть примеры, давно бы сам всё написал. А вместо этого, небось, вконтактах торчишь или в WoW.
Напишу за пиво. Выкладывай весь список лаб, а то ты задолбал.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
strannik23 (статус: Посетитель), 11 апреля 2011, 13:35 [#6]:
не, не пил я, и в wow долбанный не играю, год назад завязал, мне только с этой задач помочь бы
|
|
|
min@y™ (статус: Доктор наук), 11 апреля 2011, 13:41 [#7]:
Цитата (strannik23):
мне только с этой задач помочь бы
Пиво!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
