Дописать прогу

07.05.2011, 15:11. Показов 487. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток :-)
Я начал прогу делать, а не могу додумать как реализовать ее.
Дан одномерный массив. Найти произведение элементов находящихся меджуо модулем минимального и максимального элемента.
Вот код что я смог написать. Помогите дописать плиз :-)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program treug;
   uses crt;
    var
      x:array[1..50]of real;
      p,max,min:real;
      i,n:integer;
      otv:char;
    begin
      while true do begin
      textbackground(0);
      textcolor(15);
      clrscr;
      writeln('введите размерность вектора');
      readln(n);
      if(n>0)and(n<=50) then break;
      end;
      writeln('введите вектор x');
      for i:=1 to n do
       begin
         writeln('x[',i,']=>');
         readln(x[i]);
       end;
      max:=x[1];
      i:=1;
      for i:=1 to n do
       if(max<x[i]) then
       begin
        max:=x[i];
        i:=1;
       end;
      min:=x[2];
      i:=1;
      for i:=1 to n do
       if(min<x[i]) then
        begin
         min:=x[i];
         i:=1;
        end;
      p:=1;

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

07.05.2011, 15:11

Ответы с готовыми решениями:

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

помогите дописать прогу по поиску подстроки в строке, т.к. возникли небольшие проблемы с типом переменных да и не запускается...
program poick; var s,x: string; m,n,i,io,j: integer; d:array of integer; ch: char; begin writeln ('введите...

дописать прогу
здравствуйте! помогите, пожалуйста, решить задачу! вот код нужно дописать: когда человек вводит число, то чтобы оно сравнивалось с...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

07.05.2011, 15:11

Помогаю со студенческими работами здесь

дописать прогу на С
используя оператор цикла, найти сумму ряда с точностью E=10^4, общий член которого an=(2n-1)/(2^n). при определении суммы нужно...

помогите дописать прогу!!!
//------------------------------------ #pragma hdrstop #include <iostream.h> #include <conio.h> #include <string.h> ...

дописать прогу ассемблер
программа считает в строке кол-во букв "а" и кол-во цифр нужно дописать ввод и вывод данных .486 .model flat, stdcall .data ...

Дописать и изменить прогу
изменить и дописать программу таким образом, чтобы отдельно подсчитывалось количество всех встретившихся пробелов, количество символов...

Не могу дописать прогу
Помогите пожайлуста, есть форма с 2-мя textbox и одной кнопкой, нужно чтобы по нажатию на кнопку данные с textbox-ов отправились на Email,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

Наверх