Найти отношение минимального элемента к сумме элементов расположенных до найденного минимального элемента

@artkey93 · Регистрация: 18.04.2013

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

Помогите пожалуйста с задачей?!....
Задан одномерный массив,состоящий из 26 чисел.
1.Найти номер минимального элемента массива
2.Найти отношение минимального элемента к сумме элементов расположенных до найденного минимального элемента

@JokeR.BY · 28.05.2013, 22:54

Pascal

program Project1;
 
uses
  crt;
 
const
  n=25;
 
var
  mass : array[0..n] of Byte;
  i, index, summa : Byte;
begin
  clrscr;
  Randomize;
  index := 0;
  Writeln('Array"s elements:');
  for i := 0 to n do
  begin
    mass[i] := Random(20)+1;            //Генерация массива
    Writeln('mass[',i,']=',mass[i]);    //Вывод элементов массива
    if (mass[i] < mass[index]) then
      index := i;                       //Поиск минимального элемента
  end;
  summa := 0;
  for i := 0 to index-1 do
    summa := summa + mass[i];           //Суммирование элементов до минимального
  Writeln;
  Writeln('Min elem. number : ',index); //вывод индекса минимального элемента
  Writeln('Ratio : ',(mass[index]/summa):3:3);//подсчёт и вывод отношения минимального к сумме элементов до него
  Readln;
end.

@artkey93 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 10
		1
	Найти отношение минимального элемента к сумме элементов расположенных до найденного минимального элемента 28.05.2013, 21:10. Показов 1596. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с задачей?!.... Задан одномерный массив,состоящий из 26 чисел. 1.Найти номер минимального элемента массива 2.Найти отношение минимального элемента к сумме элементов расположенных до найденного минимального элемента 0

Опции темы

Найти отношение минимального элемента к сумме элементов расположенных до найденного минимального элемента

Решение