Одномерный массив

[SkuLLL]

Дан одномерный массив E[30], элементы которого формируются по формуле Ei= -3*i*i+74*i-7, где i-номер элемента в массиве E.Подсчитать сумму и количество элементов массива, значение которых больше k. На экран вывести сам массив, сумму и количество элементов

[andrewpalkin]

Сообщение от SkuLLL

Дан одномерный массив E[30], элементы которого формируются по формуле Ei= -3*i*i+74*i-7, где i-номер элемента в массиве E.Подсчитать сумму и количество элементов массива, значение которых больше k. На экран вывести сам массив, сумму и количество элементов

А в чем вопрос ???

[SkuLLL]

какой программный код у этой проги?

[Mixcoatl]

ой, если надо не на паскале то я не виноват, не написано ^^
Вот:

Program Massiv;
const n=30;
var E:array [1..n] of real;
    K,S:real;
    i,kol:integer;
begin
writeln ('BBeguTe K=');
readln (K);      {ввод значения К}
for i:=1 to n do
E[i]:= -3*sqr(i)+74*i-7;         {Вычисление значения элементов массива}
for i:=1 to n do
if E[i]>K then  {Проверка условия E[i]>K}
begin 
S:=S+E[i];     {Подсчет суммы элементов удовлетворяющих условию}
kol:=kol+1;      {Подсчет кол-ва элементов удовлетворяжщих условию}
end;
for i:=1 to n do
write (E[i]:10:4);        {Вывод элементов массива}
writeln;
writeln ('Cymma eJIeMeHToB 3Ha4eHu9 KoTopbIX 6oJIbwe K =',S:10:4,' KoJI-Bo eTux eJleMeHToB =',kol);
readln;      {Чтобы всё это "не убежало"}
end.

Надеюсь разберёшся, если чтото не работает пиши, исправлю...

[SkuLLL]

Спасибо большое!