Найти произведение отрицательных элементов массива

@LOGINMAIL · Регистрация: 18.05.2016

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

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) произведение отрицательных элементов массива;
2) сумму положительных элементов массива, расположенных до максимального элемента;
3) изменить порядок следования элементов в массиве на обратный.

@SW Developer · 22.05.2016, 12:34

Pascal

var n, i, center : byte;
    mult, temp : real;
    mas : array [0..100] of real;
 
BEGIN
     Randomize;
     Write('Введите размер массива: ');
     Readln(n);
 
     for i:=1 to n do
         mas[i]:= Random(20)-10+Random;
     Writeln('Массив:');
     for i:=1 to n do
         Write(mas[i]:7:2);
     Writeln;
 
//п.1
     mult:=1;
     for i:=1 to n do
          if mas[i]<0 then mult:=mult*mas[i];
     Writeln('Произведение = ', mult:4:2);
     
//п.3
     center:= n div 2;
     for i:=1 to center do
     begin
          temp:= mas[i];
          mas[i]:= mas[n+1-i];
          mas[n+1-i]:= temp;
     end;
     for i:=1 to n do
         Write(mas[i]:7:2);
     Writeln;
END.

Добавлено через 5 минут
LOGINMAIL, п. 2 сделаете сами. Найдете индекс максимального элемента и подставите его в цикле for вместо n, когда будете находить сумму sum:=sum+mas[i]. Не забудьте про условие, что mas[i]>=0.

@LOGINMAIL 26 / 18 / 8 Регистрация: 18.05.2016 Сообщений: 72
		1
	Найти произведение отрицательных элементов массива 21.05.2016, 22:36. Показов 1746. Ответов 1 Метки массив, одномерный (Все метки) В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов массива; 2) сумму положительных элементов массива, расположенных до максимального элемента; 3) изменить порядок следования элементов в массиве на обратный. 0

	22.05.2016, 12:34

Найти произведение отрицательных элементов массива

Решение