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

@shipa333 · Регистрация: 13.11.2009

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

Сново здравствуйте дорогие программисты

Буду вам очень благодарен если вы поможете мне решить ещё одну задачку.

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

Заранее спасибо

@new_in_net · 19.11.2009, 06:04

Delphi

type MyArray = array[1..37] of double;
 
procedure DecArray(A: MyArray);
var
  I: integer;
  HaveMetPositiveNumber: boolean;
begin
  HaveMetPositiveNumber := False;
  for I:=1 to 37 do begin
    if not HaveMetPositiveNumber then
      HaveMetPositiveNumber := (A[I] > 0);
    if HaveMetPositiveNumber then
      A[I] := A[I] - 0.5;
  end;
end;

@shipa333 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 19
		1
	Все числа последовательности, начиная с первого положительного, уменьшить на 0,5 19.11.2009, 05:49. Показов 1998. Ответов 1 Метки нет (Все метки) Сново здравствуйте дорогие программисты Буду вам очень благодарен если вы поможете мне решить ещё одну задачку. Даны действительные числа a1,...,а37. Все числа этой последовательности, начиная с первого положительного, уменьшить на 0,5. Заранее спасибо 0

	19.11.2009, 06:04

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

Решение