1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

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

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

Тема в разделе "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
    Симпатии:
    8

    неправильно. разницу между словом "сумма" и "количество" понимаете?
     
Загрузка...
Похожие Темы - Задача массивом
  1. filpaul
    Ответов:
    1
    Просмотров:
    1.015
  2. School_Information

    Решите Задача

    Ответов:
    2
    Просмотров:
    97
  3. KhNarg
    Ответов:
    2
    Просмотров:
    169
  4. Янчик
    Ответов:
    0
    Просмотров:
    618
  5. TrishaRay
    Ответов:
    1
    Просмотров:
    866

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