В последовательности а1, а2, ..., аn все отрицательные члены увеличить на 0,5

@ev95 · Регистрация: 14.04.2014

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

Пусть дано натуральное число п и вещественные числа а1, а2, ..., аn. В последовательности а1, а2, ..., аn все отрицательные члены увеличить на 0,5, а все неотрицательные, меньшие среднего арифметического, заменить на 0,1.

@Svager · 14.04.2014, 21:33

Pascal

uses crt;
var a:array[1..10] of real;
    i,n:integer;
    s:real;
begin
 clrscr;
  repeat
   write('n=');
    readln(n);
  until n in [1..10];
 writeln('Ìàññèâ À:');
  for i:=1 to n do
   begin
    a[i]:=-20+random(10);
    write(a[i]:0:2,' ');
    s:=s+a[i];
   end;
 writeln;
  s:=s/n;
  writeln('Ñðåäíåå àðèôìåòè÷åñêîå =',s:0:2);
 for i:=1 to n do
  begin
   if a[i]<0 then
    a[i]:=a[i]*0.5
   else
    if (a[i]>0) and (a[i]<s) then
     a[i]:=0.1;
    write(a[i]:0:2,' ');
  end;
 readkey;
end.

@ev95 · 19.04.2014, 16:01 **[ТС]**

спасибо)

Новичок · 19.04.2014, 20:00

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

a[i]:=a[i]*0.5

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

увеличить на 0,5

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

(a[i]>0)

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

а все неотрицательные

Немного ошиблись...

@Svager · 19.04.2014, 22:21

Новичок, почему?

Сообщение от Новичок

а все неотрицательные

значит положительные и 0 ?

Сообщение от Новичок

увеличить на 0,5

а тут чтоо? умножить значит ?

Новичок · 19.04.2014, 22:23

Svager, если б увеличить в 0.5 то тогда умножать,а раз на то прибавить надо.

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

значит положительные и 0 ?

Да. Т.е еще и нулевые.

@Svager · 19.04.2014, 22:25

Новичок, да точно..ну там чучуть поправить..

а на счет 0..это я что-то ошибся.

Новичок · 19.04.2014, 22:30

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

a[i]:=a[i]*0.5

заменить на

Pascal

1	a[i]:=a[i]+0.5

и

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

if (a[i]>0)

на

Pascal

1	if (a[i]>=0)

@Svager · 19.04.2014, 22:36

Новичок, я понял

Новичок · 19.04.2014, 22:52

Да я для автора темы. Обычно для них даже заменить * на + тяжело сделать...

@Svager · 21.04.2014, 01:32

Новичок, согласен...хотя иногда пишут люди толковые,хоть если что-то и не понимают.

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	21.04.2014, 01:32	11
	Новичок, согласен...хотя иногда пишут люди толковые,хоть если что-то и не понимают. 0

@ev95 0 / 0 / 0 Регистрация: 14.04.2014 Сообщений: 8
		1
	В последовательности а1, а2, ..., аn все отрицательные члены увеличить на 0,5 14.04.2014, 19:03. Показов 6768. Ответов 10 Метки нет (Все метки) Пусть дано натуральное число п и вещественные числа а1, а2, ..., аn. В последовательности а1, а2, ..., аn все отрицательные члены увеличить на 0,5, а все неотрицательные, меньшие среднего арифметического, заменить на 0,1. 0

@ev95 0 / 0 / 0 Регистрация: 14.04.2014 Сообщений: 8
	19.04.2014, 16:01 [ТС]	3
	спасибо) 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	19.04.2014, 20:00	4
	Сообщение от Svager a[i]:=a[i]0.5 Сообщение от ev95* увеличить на 0,5 Сообщение от Svager (a[i]>0) Сообщение от ev95 а все неотрицательные Немного ошиблись... 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	19.04.2014, 22:21	5
	Новичок, почему? Сообщение от Новичок а все неотрицательные значит положительные и 0 ? Сообщение от Новичок увеличить на 0,5 а тут чтоо? умножить значит ? 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	19.04.2014, 22:23	6
	Svager, если б увеличить в 0.5 то тогда умножать,а раз на то прибавить надо. Сообщение от Svager значит положительные и 0 ? Да. Т.е еще и нулевые. 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	19.04.2014, 22:25	7
	Новичок, да точно..ну там чучуть поправить.. а на счет 0..это я что-то ошибся. 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	19.04.2014, 22:36	9
	Новичок, я понял 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	19.04.2014, 22:52	10
	Да я для автора темы. Обычно для них даже заменить * на + тяжело сделать... 0

Опции темы