Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.04.2016, 22:01   #1
shezik
Новичок
Джуниор
 
Регистрация: 22.04.2016
Сообщений: 2
Печаль вычислить сумму целых частей элементов массива, расположенных после последнего отрицательного элемента

В одновременном массиве, состоящего из n вещественных элементов, вычислить:
1)количество элементов массива, меньших C;
2)сумму целых частей элементов массива,расположенных после последнего отрицательного элемента.
Преобразовать массив таким образом, чтобы сначала располагались все элементы отличающиеся от максимального не более чем на 20%, а потом все остальное
shezik вне форума
Старый 24.04.2016, 08:18   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const n=10;
      c=5;
var p:array[1..n] of real;
    i,k,i1,s:integer;
    max,z:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20)+Random;
      Write(p[i]:3:3,'  ');
   end;
   Writeln;
   Writeln;
   k:=0;
   For i:=1 to n do
      If p[i]<c then
         k:=k+1;
   Writeln('k = ',k);
   i1:=n+1;
   For i:=n downto 1 do
      If p[i]<0 then
      begin
         i1:=i;
         Break;
      end;
   s:=0;
   For i:=i1+1 to n do
      s:=s+Trunc(p[i]);
   Writeln('s = ',s);
   max:=p[1];
   For i:=2 to n do
      If max<p[i] then
         max:=p[i];
   Writeln;
   Writeln('max = ',max:3:3,'   20% = ',max*(1-0.2):3:3);
   k:=1;
   For i:=2 to n do
      If p[i]>=max*(1-0.2) then
      begin
         z:=p[i];
         For i1:=i downto k+1 do
            p[i1]:=p[i1-1];
         p[k]:=z;
         k:=k+1;
      end;
   For i:=1 to n do
      Write(p[i]:3:3,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума
Старый 25.04.2016, 19:05   #3
shezik
Новичок
Джуниор
 
Регистрация: 22.04.2016
Сообщений: 2
По умолчанию

спасибо большое очень помогли!
shezik вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумму элементов массива, расположенных после последнего элемента, равного нулю Misha_Sil Помощь студентам 6 18.02.2013 21:01
Найти сумму элементов расположенных ,после первого элемента равному нулю геннадий 2012 Visual C++ 13 26.12.2012 18:18
Найти сумму модулей элемента массива, расположенных после первого отрицательного ? МоЗгАвеД Общие вопросы C/C++ 0 12.12.2011 17:36
сумму элементов массива, расположенных после последнего элемента, равного нулю. R@Ziel Помощь студентам 2 17.12.2009 23:44