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

  1. Здравствуйте. Очень срочно нужна программа, помогите пожалуйста. Известно, что в массиве х(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.

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

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



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.