Числа, большие или равные 5, увеличить вдвое, а от чисел, меньших 5, взять модуль и уменьшить вдвое

@cortez35 · Регистрация: 13.12.2012

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

Числа, большие или равные 5, увеличить вдвое, а от чисел, меньших 5, взять модуль и уменьшить вдвое.
Нужно сделать что-бы можно было вводить несколько чисел.
Помогите пожалуйста.

@nicita13 · 22.12.2012, 21:22

Pascal

uses
  crt;
 
var
  a: array[1..100] of real;
  i, n: integer;
 
begin
  write('Введите кол-во чисел: ');
  readln(n);
  writeln('Введите числа: ');
  for i := 1 to n do
  begin
    write('a[', i, ']=');
    read(a[i]);
  end;
  for i := 1 to n do
  begin
    if a[i] >= 5 then
      a[i] := a[i] * 2
    else
      a[i] := (abs(a[i])) / 2;
  end;
  write('Получившиеся числа: ');
  for i := 1 to n do
    write(a[i], ' ');
  readkey;
end.

@baquaqa · 23.12.2012, 05:34

Здравствуйте. Как-то так, наверное

Кликните здесь для просмотра всего текста

Pascal

program numbs;
 
const
  
  N=5; {количество чисел}
 
var
 
 i:integer;
 X:Real;
 
procedure writeResult(i:integer;aR:Real);
 begin
  if aR >= 5 then Writeln(i,'. Result: ',aR*2:0:2)
             else Writeln(i,'. Result: ',Abs(aR)/2:0:2);
Writeln();
end;
Begin
 for i:=1 to N do begin
                  { input }
                  Write('X: ');
                  Readln(X);
                  { output }
                  WriteResult(i,X);
                  end;
End.

@cortez35 0 / 0 / 0 Регистрация: 13.12.2012 Сообщений: 17
		1
	Числа, большие или равные 5, увеличить вдвое, а от чисел, меньших 5, взять модуль и уменьшить вдвое 22.12.2012, 13:30. Показов 1440. Ответов 2 Метки нет (Все метки) Числа, большие или равные 5, увеличить вдвое, а от чисел, меньших 5, взять модуль и уменьшить вдвое. Нужно сделать что-бы можно было вводить несколько чисел. Помогите пожалуйста. 0

	23.12.2012, 05:34

Числа, большие или равные 5, увеличить вдвое, а от чисел, меньших 5, взять модуль и уменьшить вдвое

Решение