В одномерном массиве найти сумму не положительных, произведение не отрицательных элементов, поменять местами

@Julia_1 · Регистрация: 12.11.2015

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

Помогите, пожалуйста.
В одномерном массиве х (10) найти сумму не положительных, произведение не отрицательных элементов, поменять местами первый и последний элементы. Составить блок-схему.

@Alexandr212 · 12.01.2019, 10:52

Идете по массиву циклом, каждый элемент проверяете условием:
Если меньше или равно 0, то прибавить к переменной сумма(изначально равна 0)
Если больше или равно 0, то домножить переменную произведение(изначально равна 1)

Потом, после цикла пишете так:
t(переменная)
t = элемент массива[1]
элемент массива[1] = элемент массива[10]
элемент массива[10] = t

@Julia_1 · 13.01.2019, 01:22 **[ТС]**

И все равно не понятно(

@Alexandr212 · 13.01.2019, 15:32

Pascal

var
  mas: Array [1..10] of integer;
  pr, s, t: integer;
 
begin
  for i: integer := 1 to 10
  do 
  begin
    pr := 1;
    s := 0;
    read(mas[i]);
    if(mas[i] <= 0)
      then s += mas[i];
    if(mas[i] >= 0)
      then pr *= mas[i];
  end;
  t := mas[1];
  mas[1] := mas[10];
  mas[10] := t;
  writeln('Summa = ', s, ' Proizvedenie = ', pr);
  for i: integer := 1 to 10
    do write(mas[i], ' '); 
end.

Спрашивайте, если что-то непонятно.

@Julia_1 1 / 1 / 0 Регистрация: 12.11.2015 Сообщений: 116
		1
	В одномерном массиве найти сумму не положительных, произведение не отрицательных элементов, поменять местами 12.01.2019, 03:17. Показов 2555. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста. В одномерном массиве х (10) найти сумму не положительных, произведение не отрицательных элементов, поменять местами первый и последний элементы. Составить блок-схему. 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	12.01.2019, 10:52	2
	Идете по массиву циклом, каждый элемент проверяете условием: Если меньше или равно 0, то прибавить к переменной сумма(изначально равна 0) Если больше или равно 0, то домножить переменную произведение(изначально равна 1) Потом, после цикла пишете так: t(переменная) t = элемент массива[1] элемент массива[1] = элемент массива[10] элемент массива[10] = t 0

@Julia_1 1 / 1 / 0 Регистрация: 12.11.2015 Сообщений: 116
	13.01.2019, 01:22 [ТС]	3
	И все равно не понятно( 0

	13.01.2019, 15:32

Опции темы

В одномерном массиве найти сумму не положительных, произведение не отрицательных элементов, поменять местами

Решение