Даны три одномерных массива вещественных чисел А[1.6], В[1.6], С[1.6]

@12sveta · Регистрация: 24.12.2016

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

Найти общую сумму положительных элементов в массивах. Решить, использовав подпрограмму функцию.

@Alexandr212 · 06.06.2017, 16:20

По-моему в правилах говорилось, что в заголовках тем не разрешается использовать кричащие тексты типа вашего "СРОЧНО!"
Так что вот кусок находящий сумму положительных элементов массива, все остальное сами, ибо осталось только вставить это куда надо

Pascal

 ...
 for i:=1 to 6
  do if A[i]>0 
     then sum:=sum+A[i];
     ...

Добавлено через 1 минуту
Потом просто к переменной sum прибавляете положительные элементы других массивов.

@12sveta · 06.06.2017, 16:25 **[ТС]**

А если я не понимаю куда вставлять?

@Alexandr212 · 06.06.2017, 16:32

Ну, это совсем плохо, тогда зачем вам это, если вы не можете данный кусочек тупо вставить в программу?

@12sveta · 06.06.2017, 16:36 **[ТС]**

Я обратилась за помощью на форум, как раз по этой причине, по тому что не понимаю)

@Alexandr212 · 06.06.2017, 16:50

За помощью? А по-моему просто, чтобы слизать решение и забыть это как страшный сон, ибо вряд ли вы хотите СРОЧНО понять и разобраться в этой задаче.

здесь программа, но подумайте, а может сами?

еще есть возможность все сделать самой(самому), подумайте.

это последняя попытка, последний шанс вернуться!

Pascal

type
  mas = Array [1..6] of real;
 
var
  a, b, c: mas;
  i: integer;
 
function sum(a, b, c: mas): real;
var
  i: integer;
  s: real;
begin
  for i := 1 to 6
  do 
  begin
    if A[i] > 0 
      then s := s + A[i];
    if B[i] > 0
      then s := s + B[i];
    if C[i] > 0
      then s := s + C[i];
    sum := s;
  end;
end;
 
begin
  for i := 1 to 6
    do  read(A[i]); 
  for i := 1 to 6
    do  read(B[i]); 
  for i := 1 to 6
    do  read(C[i]); 
  writeln(sum(A, B, C));
end.

@12sveta 0 / 0 / 0 Регистрация: 24.12.2016 Сообщений: 14
		1
	Даны три одномерных массива вещественных чисел А[1.6], В[1.6], С[1.6] 06.06.2017, 16:12. Показов 2404. Ответов 5 Метки нет (Все метки) Найти общую сумму положительных элементов в массивах. Решить, использовав подпрограмму функцию. 0

@12sveta 0 / 0 / 0 Регистрация: 24.12.2016 Сообщений: 14
	06.06.2017, 16:25 [ТС]	3
	А если я не понимаю куда вставлять? 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	06.06.2017, 16:32	4
	Ну, это совсем плохо, тогда зачем вам это, если вы не можете данный кусочек тупо вставить в программу? 0

@12sveta 0 / 0 / 0 Регистрация: 24.12.2016 Сообщений: 14
	06.06.2017, 16:36 [ТС]	5
	Я обратилась за помощью на форум, как раз по этой причине, по тому что не понимаю) 0

	06.06.2017, 16:50

Даны три одномерных массива вещественных чисел А[1.6], В[1.6], С[1.6]

Решение