Задача с массивом

Тема в разделе "Pascal and Delphi", создана пользователем Ptica, 5 мар 2010.

  1. Ptica

    Ptica Гость

    Помогите, плиз, с задачей.

    Условие:
    Дан одномерный массив В [30] элементы которого формулируются по формуле Bi=i sin i,где i-номер элемента в массиве В .Подсчитать сумму всех отрицательных элементов массива. На экран вывести сам массив и сумму.

    Мое решение:
    Код (Text):
    uses crt;
    {type}
    var i,k:integer;
    f:array[0..29] of real;
    begin
    for i:=0 to 29 do
    begin
    f[i]:=i*sin(i);
    if f[i]<0 then k:=k+1;
    end;
    for i:=0 to 29 do
    begin
    writeln('f[',i,']=',f[i])
    end;
    writeln ('Summa otricatelnyh elementov massiva',k);
    end.
    Верно ли мое решение? Все ли условия выполнены?
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7

    неправильно. разницу между словом "сумма" и "количество" понимаете?
     
Загрузка...
Похожие Темы - Задача массивом
  1. filpaul
    Ответов:
    1
    Просмотров:
    1.004
  2. Янчик
    Ответов:
    0
    Просмотров:
    491
  3. TrishaRay
    Ответов:
    1
    Просмотров:
    783
  4. elzim
    Ответов:
    0
    Просмотров:
    932
  5. ShaoKahn
    Ответов:
    0
    Просмотров:
    1.131

Поделиться этой страницей