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

@Рапира · Регистрация: 16.09.2010

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

В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму положительных элементов массива, расположенных до максимального элемента.

@SuPeR XaKer · 19.10.2010, 18:12

Pascal

ищешь max точнее его индекс.И далее
if imax<>1 then
begin
sum:=0;
for i:=1 to max-1 do
if a[i]>0 then
begin
sum:=sum+a[i]
end;
writeln('SUM:=',sum);
end
else writeln('MAX первый!!!!');

@Рапира · 19.10.2010, 18:19 **[ТС]**

Напиши пожалуйста полную программу.

@SuPeR XaKer · 19.10.2010, 18:24

Pascal

max:=a[1];
imax:=1;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
writeln;
if imax<>1 then
begin
sum:=0;
for i:=1 to max-1 do
if a[i]>0 then
begin
sum:=sum+a[i]
end;
writeln('SUM:=',sum);
end
else writeln('MAX ïåðâûé!!!!');

Вот 90 процентов кода.Удачи

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

Решение

Решение

@Рапира 2 / 2 / 0 Регистрация: 16.09.2010 Сообщений: 54
		1
	Вычислить сумму положительных элементов массива, расположенных до максимального элемента 19.10.2010, 18:10. Показов 1030. Ответов 3 Метки нет (Все метки) В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму положительных элементов массива, расположенных до максимального элемента. 0

@Рапира 2 / 2 / 0 Регистрация: 16.09.2010 Сообщений: 54
	19.10.2010, 18:19 [ТС]	3
	Напиши пожалуйста полную программу. 0

Опции темы