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

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

Наш партнер Genesis Hackspace
  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.445
    Симпатии:
    7

    неправильно. разницу между словом "сумма" и "количество" понимаете?
     
Загрузка...
Похожие Темы - Задача массивом
  1. filpaul
    Ответов:
    1
    Просмотров:
    1.013
  2. KhNarg
    Ответов:
    2
    Просмотров:
    107
  3. Янчик
    Ответов:
    0
    Просмотров:
    599
  4. TrishaRay
    Ответов:
    1
    Просмотров:
    840
  5. elzim
    Ответов:
    0
    Просмотров:
    981

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