Вычислить сумму положительных элементов массива, последующих за заданным

@Enterpris · Регистрация: 30.11.2013

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

Здравствуйте. Очень срочно нужна программа, помогите пожалуйста.
Известно, что в массиве х(n) есть один элемент = 1. Определить где он находится и вычислить сумму положительных элементов последующих за ним.

@Fakeoke · 05.12.2013, 19:32

Pascal

uses crt;
const n=10;
var a:array [1..n] of integer;
i,ied,s:integer;
begin
clrsrc;
randomize;
for i:=1 to n do
a[i]:=random(100)+3;
a[5]:=1;
{создание можешь переписать}
writeln('Massive :');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
if a[i]=1 then ied:=i;
writeln('Edinica nahoditsa na ',ied,' meste');
s:=0;
for i:=ied to n do
s:=s+a[i];
writeln('Summa posle 1 = ',s);
readkey;
end.

@Enterpris 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 56
		1
	Вычислить сумму положительных элементов массива, последующих за заданным 05.12.2013, 19:26. Показов 1413. Ответов 1 Метки нет (Все метки) Здравствуйте. Очень срочно нужна программа, помогите пожалуйста. Известно, что в массиве х(n) есть один элемент = 1. Определить где он находится и вычислить сумму положительных элементов последующих за ним. 0

	05.12.2013, 19:32

Вычислить сумму положительных элементов массива, последующих за заданным

Решение