Разделить каждый элемент массива на максимальный по модулю элемент массива

@sewer331 · Регистрация: 27.12.2012

1. Разделить каждый элемент массива целых чисел, в котором не все элементы равны нулю, на самый по модулю элемент этого массива.
очень надо * (

@Alles · 28.12.2012, 01:43

Вариант решения пункта №1:

Pascal

const
     n = 10;
var
   i: integer;
   d:real;
   arr: array[1..n] of real;
begin
     d:=0;
     randomize;
     writeln('Íà÷àëüíûé ìàññèâ:');
     for i:=1 to n do
         begin
              arr[i]:=random(30)-15;
              write(arr[i], ' ');
              if (abs(arr[i]) > d) then
                 d:= arr[i];
         end;
         writeln;
         writeln('Áîëüøåå ïî ìîäóëþ: ', d);
         writeln('Èçìåíåííûé ìàññèâ:');
      for i:=1 to n do
          begin
               arr[i]:=arr[i]/d;
               write(arr[i]:2:2,' ');
          end;
 
end.

@sewer331 · 28.12.2012, 01:52 **[ТС]**

Alles Спасибо тебе огромное!!! выручаешь очень.реально от души спасибо!

@КонецСвета · 28.12.2012, 01:56

Комментарий модератора

sewer331, размещайте каждую задачу в отдельной теме.
следующее предупреждение будет в виде карточки.

@sewer331 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 8
		1
	Разделить каждый элемент массива на максимальный по модулю элемент массива 28.12.2012, 01:12. Показов 1737. Ответов 3 Метки нет (Все метки) 1. Разделить каждый элемент массива целых чисел, в котором не все элементы равны нулю, на самый по модулю элемент этого массива. очень надо * ( __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@sewer331 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 8
	28.12.2012, 01:52 [ТС]	3
	Alles Спасибо тебе огромное!!! выручаешь очень.реально от души спасибо! 0

Опции темы