процедуры/функции на Паскале

[vihlyaev]

Помогите, пожалуйста.

1. Написать процедуру/функцию для определения
количества пробелов в заданной текстовой строке.

2. Написать процедуру/функцию для определения
количества положительных элементов заданного одномерного массива.

3. Написать процедуру/функцию для нахождения
количества отрицательных элементов заданного одномерного массива.

4. Написать процедуру/функцию для нахождения суммы
элементов заданного одномерного массива.

5. Написать процедуру/функцию для нахождения суммы
положительных элементов заданного одномерного массива.

 

[Dock1100]

1. Написать процедуру/функцию для определения
количества пробелов в заданной текстовой строке.

function get_kol_space(s:string):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length(s) do
if s[i]=' ' then k:=k+1;
get_kol_space:=k;
end;

Добавлено: 2. Написать процедуру/функцию для определения
количества положительных элементов заданного одномерного массива.

function get_plus_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
if ar[i]>0 then k:=k+1;
get_plus_elements:=k;
end;

3. Написать процедуру/функцию для нахождения
количества отрицательных элементов заданного одномерного массива.

function get_minus_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
if ar[i]<0 then k:=k+1;
get_plus_elements:=k;
end;

4. Написать процедуру/функцию для нахождения суммы
элементов заданного одномерного массива.

function get_sum_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
k:=k+ar[i];
get_sum_elements:=k;
end;

5. Написать процедуру/функцию для нахождения суммы
положительных элементов заданного одномерного массива.

function get_plus_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
if ar[i]>0 then k:=k+ar[i];
get_plus_elements:=k;
end;

Должно роботать, если будут ошибки пишите исправлю.

 

[vihlyaev]

Вау, спасибо огромное!!!

 

[Dock1100]

Может и есть, непомню.