22.02.2019, 10:25 [+3 UTC]
в нашей команде: 3 402 чел. | участники онлайн: 4 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.69 (10.02.2019)
JS-v.1.33 | CSS-v.3.35

Общие новости:
10.02.2019, 21:59

Форум:
16.02.2019, 15:03

Последний вопрос:
22.02.2019, 00:18
Всего: 148805

Последний ответ:
21.02.2019, 23:32
Всего: 257820

Последняя рассылка:
22.02.2019, 04:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
21.01.2010, 13:16 »
Верещака Андрей Павлович
Очень подробный, полный и понятный ответ, очень сильно мне помог. Спасибо огромное автору ответа Megaloman И вашему порталу в целом, за возможмость повышать свои знания. [вопрос № 176158, ответ № 258783]
28.09.2012, 03:34 »
Вера Михайловна
спасибо [вопрос № 186615, ответ № 271519]
20.03.2010, 19:58 »
Розанкова Наталья Юрьевна
Боже спасибо большое Shvetski!!!!!! Вы мне очень помогли, спасибо!!!!!!!!!! [вопрос № 177366, ответ № 260259]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 394
zdwork
Статус: 1-й класс
Рейтинг: 111
puporev
Статус: Профессионал
Рейтинг: 105

Перейти к консультации №:
 

Консультация онлайн # 193256
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: lalka (1-й класс)
Отправлена: 14.05.2018, 10:00
Поступило ответов: 1

Уважаемые эксперты! Помогите решить:
1. В одномерном массиве, состоящем из N действительных элементов, вычислить:
- минимальный элемент массива;
- сумму элементов массива, расположенных между первым и последним положительными элементами

Состояние: Консультация закрыта

Здравствуйте, lalka!

Код (Pascal) :: выделить код
const
  n=10;
var
  a:array[1..n]of real;
  b,c:integer;
  d:real;
begin
  for b:=1 to n do
    begin
      a[b]:=30*random-25;
      write(a[b]:10:5);
    end;
    writeln;
  c:=1;
  for b:=2 to n do
    if a[c]>a[b]then c:=b;
  writeln('minimum a[',c,']:=',a[c]:10:5);
  b:=1;
  while(b<=n)and(a[b]<=0)do inc(b);
  c:=n;
  while(c>0)and(a[c]<=0)do dec(c);
  d:=0;
  while b<=c do
    begin
      d:=d+a[b];
      inc(b);
    end;
  if c>0 then writeln('summa:=',d:10:5)
    else writeln('positive numbers not found');
  end.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 15.05.2018, 10:46

5
нет комментария
-----
Дата оценки: 18.05.2018, 23:58

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13406 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.69 от 10.02.2019
Версия JS: 1.33 | Версия CSS: 3.35