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

Формулировка задачи:

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


textual

Код к задаче: «Вычислить сумму положительных элементов массива, последующих за заданным - Turbo 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.000 из 5

Источник