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

@Elegia77 · Регистрация: 06.11.2013

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

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

@antibenzin · 12.12.2013, 15:58

Pascal

var a:array[1..1000] of integer;
i,max,s,n:integer;
begin
s:=0;
readln(n);{вводим количество элементов массива}
read(a[1]);
max:=a[1];
for i:=2 to n do
begin
read(a[i]);
if a[i]>max then max:=a[i];
end;
i:=1;
while a[i]<>max do
begin
if a[i]>0 then s:=s+a[i];
inc(i);
end;
writeln(s);
end.

@Elegia77 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 27
		1
	Составить одномерный массив и вычислить сумму положительных элементов массива, расположенных до максимального элемента 12.12.2013, 01:47. Показов 1159. Ответов 1 Метки нет (Все метки) Составить одномерный массив и вычислить сумму положительных элементов массива, расположенных до максимального элемента. 0

Опции темы

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

Решение