1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Ptica, 5 мар 2010.

  1. Ptica

    Ptica Гость

    Репутация:
    0
    Помогите, плиз, с задачей.

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

    Мое решение:
    Код:
    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 *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    9

    неправильно. разницу между словом "сумма" и "количество" понимаете?
     
Загрузка...

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