Помогите в написании:( завал

41K

30 ноября 2008 года

7 / / 30.11.2008

Срочно нужна помощь. задание по информатике, а моя будущая профессия с этим мало связана. Помогите ришить задачу!
Задача№1: Найти сумму отрицательных элементов массива С[1..7]. Значения элементов массива 1,5,6,7,-2,8,-3.
Задача№2: Найти сумму и количество позитивных элементов массива A[1..10,1..6]. 1,2,-3,-4,7,-9,3,-8,-5,10 и 1,-2,4,2,6,-5.
Задача№3: В массиве A[1..20] найти суму и количество элементов, которые менее 5 и индекс кратных 4! 3,2,4,-4,-2,-4,5,6,3,8,5,2,4,8,9,-4,-2,-1,-6,4.
Буду ждать ваших текстов программы в Turbo Pascal 7.0 с большим нетерпением. Буду очень благодарен:)

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

2 ответа

0 спам

01 декабря 2008 года

George

4.1K / / 05.01.2007

Задача 1:
[highlight=pascal]
function FindNegSum(C: array[1..7] of integer): integer;
var
Sum, i: integer;
begin
Sum := 0;
for i := 1 to 7 do
begin
if C < 0 then
Sum := Sum + C;
end;
Result := Sum;
end;
[/highlight]

Задача 2:
[highlight=pascal]
function FindPosSum(A: array[1..10, 1..6] of integer; var PosItemCount: integer): integer;
var
Sum, i, k: integer;
begin
PosItemCount := 0;
Sum := 0;
for i := 1 to 10 do
begin
for k := 1 to 6 do
begin
if A[i, k] > 0 then
begin
Sum := Sum + A[i, k]; // сумма положительных элементов
inc(PosItemCount); // переменная, где будет лежать количество положительных элементов
end;
end;
Result := Sum;
end;
[/highlight]

Задача 3:
[highlight=pascal]
function FindSum(A: array[1..20] of integer; var PosItemCount: integer): integer;
var
Sum, i: integer;
begin
PosItemCount := 0;
Sum := 0;
for i := 1 to 20 do
begin
if (A < 5) and (i mod 4 = 0) then
begin
Sum := Sum + A; // сумма элементов
inc(PosItemCount); // переменная, где будет лежать количество элементов
end;
end;
Result := Sum;
end;
[/highlight]