Вычислить сумму первых четырех отрицательных элементов массива

@inkognitik · Регистрация: 28.11.2013

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

Создать и вывести массив У(8),
с элементами уk = ln(k) - 3k, где k = 1,2…. Выполнить дополнительно
задание своего варианта поиска данных по некоторому критерию (признаку). Результат
вывести на экран.
Вычислить сумму первых четырех отрицательных
элементов.
То, что смогла наклепать. Как вычислитель сумму не знаю...

Pascal

program DvaMassiva;
var y, g : array [1..10] of real;
 k, n : integer;
begin
n := 0;
for k := 1 to 10 do
begin
y[k]:=ln(k) - 3*k;
if y[k] < 0 then
begin
n := n + 1;
g[n] := y[k];
end;
writeln('y(' , k, ')= ' , y[k]:7:2);
end;
if n = 0 then
writeln('В массиве отрицательных элементов нет')
else
for k := 1 to n do
writeln('g[' , k , ']= ' , g[k]:7:2);
end.

@Cyborg Drone · 07.04.2014, 19:04

Сумму накоплением вычислить. Если по заданию, то так:

Pascal

program DvaMassiva;
var y : array [1..10] of real;
    k, n : integer;
    s : real;
begin
  n := 0;
  s := 0;
  for k := 1 to 10 do
    begin
      y[k] := ln(k) - 3 * k;
      if (y[k] < 0) and (n < 4)
        then begin
          inc(n);
          s := s + y[k]
        end;
    writeln('y(', k:2, ') = ', y[k]:7:2);
  end;
  if n = 0
    then writeln('В массиве отрицательных элементов нет')
    else writeln('Сумма первых четырёх отрицательных элементов = ', s:0:2);
readln
end.

@inkognitik · 07.04.2014, 19:49 **[ТС]**

Да. Все верно. Спасибо большое

@inkognitik 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 30
	07.04.2014, 19:49 [ТС]	3
	Да. Все верно. Спасибо большое 0

Опции темы