массив и минимум максимум

@X-TRAIL · Регистрация: 29.04.2010

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

помогите пожалуйста решить две задачи:
1. Дано целое число N и набор из N пар чисел (m,v) - данные о массе m и объеме v деталей, изготовленных из различных материалов. Вывести номер детали изготовленной из материала максимальной плотности, а также величину этой максимальной плотности. Плотность p вычисляется по формуле: p=m/v (minmax)
2. Задать массив С(М) Определить минимальный элемент массива С и его номер С<0, M<= 40

@schanker · 02.06.2010, 16:30

2.

Pascal
1
2
3
4
for m:=1 to n do read(c[m]);
min:=c[m];
for m:=2 to n do 
  if min>c[m] then min:=c[m];

@X-TRAIL · 02.06.2010, 23:44 **[ТС]**

Сообщение от schanker

2.

Pascal
1
2
3
4
for m:=1 to n do read(c[m]);
min:=c[m];
for m:=2 to n do 
  if min>c[m] then min:=c[m];

А можно полностью код программы ?

Добавлено через 5 часов 57 минут
помогите пожалуйста еще первую решить, очень надо...

@schanker · 02.06.2010, 23:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
сonst n=40;
var i:byte;
c:array[1..n] of real;
min:real;
begin
for m:=1 to n do read(c[m]);
min:=c[m];
for m:=2 to n do 
  if min>c[m] then min:=c[m];
write(min);
end

Вроде так. Проверяй.

@STGE · 03.06.2010, 00:20

2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const n=10;
var a: array[1..n] of integer; 
      i,min: byte;
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   a[i]:=random(41)-20;
   write(a[i]:4);
  end;
 writeln;
 min:=1;
 for i:=2 to n do
  if a[i]<a[min] then min:=i;
 writeln('минимальный элемент массива = ',a[min],'; он имеет индекс = ',min);
end.

schanker, после end в конце программы всегда ставится точка.

@schanker · 03.06.2010, 08:15

Ну это да. Это золотое правило паскаля))) Бывает...переучился.
Ну практически такая же прога как у меня только с автоматическим вводом чисел и на паскаль АВС.

Добавлено через 32 секунды
И спасибо не сказали

@X-TRAIL · 03.06.2010, 15:46 **[ТС]**

спасибо огромное!

осталась одна задачка

Добавлено через 4 часа 31 минуту
помогите решить первую задачу или скажите сколько будет стоить ее решить

@schanker · 03.06.2010, 15:50

Тут вроде не фриланс чтобы продавать работы)))
Вечером посмотрю...постараюсь решить

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@X-TRAIL 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 4

	массив и минимум максимум 02.06.2010, 16:12. Показов 2176. Ответов 7 Метки нет (Все метки) помогите пожалуйста решить две задачи: 1. Дано целое число N и набор из N пар чисел (m,v) - данные о массе m и объеме v деталей, изготовленных из различных материалов. Вывести номер детали изготовленной из материала максимальной плотности, а также величину этой максимальной плотности. Плотность p вычисляется по формуле: p=m/v (minmax) 2. Задать массив С(М) Определить минимальный элемент массива С и его номер С<0, M<= 40 0

@schanker 6 / 6 / 5 Регистрация: 16.04.2010 Сообщений: 248 Записей в блоге: 1
	03.06.2010, 08:15
	Ну это да. Это золотое правило паскаля))) Бывает...переучился. Ну практически такая же прога как у меня только с автоматическим вводом чисел и на паскаль АВС. Добавлено через 32 секунды И спасибо не сказали 0

@X-TRAIL 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 4
	03.06.2010, 15:46 [ТС]
	спасибо огромное! осталась одна задачка Добавлено через 4 часа 31 минуту помогите решить первую задачу или скажите сколько будет стоить ее решить 0

@schanker 6 / 6 / 5 Регистрация: 16.04.2010 Сообщений: 248 Записей в блоге: 1
	03.06.2010, 15:50
	Тут вроде не фриланс чтобы продавать работы))) Вечером посмотрю...постараюсь решить 0