Все элементы массива уменьшить на 0,5

@Hемного тормоз) · Регистрация: 24.11.2011

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

дан массив чисел. все элементы массива, начиная с первого положительного, уменьшить на 0,5

помогите плз

@versa4e · 01.12.2011, 16:45

Pascal

const
  n=15;
  d=0.5;
type
  arr=array[1..n] of real;
var
  a:arr;
  i,s_point:integer;
begin
  randomize;writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-10+random*21;
      write(a[i]:5:1);
    end;
  writeln;
  i:=1;
  while (a[i]<=0) and (i<=n) do
    inc(i);
  if i>n then
    writeln('Net polozh. chisel v massive')
  else
    begin
      s_point:=i;
      for i:=s_point to n do
        a[i]:=a[i]-d;
      writeln('Massiv posle izmeneniya:');
      for i:=1 to n do
        write(a[i]:5:1);
    end;
end.

@Demsol · 01.12.2011, 16:57

Возпользуйтесь поиском, я уже кому-то помогал в решении этой задачи.

@Hемного тормоз) 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 11
		1
	Все элементы массива уменьшить на 0,5 01.12.2011, 16:38. Показов 1754. Ответов 2 Метки нет (Все метки) дан массив чисел. все элементы массива, начиная с первого положительного, уменьшить на 0,5 помогите плз 0

@Demsol 43 / 43 / 14 Регистрация: 16.11.2011 Сообщений: 125
	01.12.2011, 16:57	3
	Возпользуйтесь поиском, я уже кому-то помогал в решении этой задачи. 1

Все элементы массива уменьшить на 0,5

Решение