VPF::помогите решить задачу - Форум программистов

crus

Дата 24.12.2006, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.12.2006

Репутация: нет
Всего: нет

ребята кому не трудно не могли бы написать програмку :
задача
дан вектор x(n)
Вычислить : среднюю величину отрицательных элементов

Kuvaldis

Дата 24.12.2006, 03:11 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: нет
Всего: 61

crus,

Код


program mass;

{$APPTYPE CONSOLE}
uses
  SysUtils;

const
    MAX = 20;
Var
   vector : Array [1..MAX] of real;
   i : integer;
   len : integer;       // вводимая длина массива
   count : integer;     // количество отрицательных элементов
   sum : real;          // сумма отрицательных элементов

Begin
   Writeln('Input vector elements count(max = ', max, ')');
   Readln(len);
   Writeln('Input elements');
   for i := 1 to len do
      read(vector[i]);

   count := 0;
   sum := 0;

   for i := 1 to len do
   begin
      if (vector[i] < 0) then
      begin
          Inc(count);
          sum := sum + vector[i];
      end;
   end;

   if (count = 0) then
       Writeln('No negative elements')
   else
   begin
       sum := sum / count;
       Writeln('Average value = ', sum : 3 : 1);
   end;

   Writeln('Press any key to exit');

   readln;
   readln;
end.

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

crus

Дата 24.12.2006, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.12.2006

Репутация: нет
Всего: нет

большое спасибо !

Rodman

Дата 24.12.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Kuvaldis, это же раздел Паскаль... а ты в Делфи написал (корректируй, а то не каждый сможет понять)...

crus, пометь как решенный, если все ОК...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

crus

Дата 24.12.2006, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.12.2006

Репутация: нет
Всего: нет

я стёр uses sysutils и всё ! работает как надо

Zero

Дата 24.12.2006, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Rodman @ 24.12.2006, 16:29

)

Kuvaldis, это же раздел Паскаль...

Rodman, он на писал скорее всего на free паскале. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »