Программа с массивом

@Ptica-govorun · Регистрация: 08.11.2009

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

Здравствуйте, подскажите, пожалуйста, с задачей.

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

Вот мое решение:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.

Подскажите, пожалуйста, верно ли решение?

@Puporev · 05.03.2010, 07:52

Нужно же сумму, а не количество.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
{type}
var i:integer;
     f:array[0..29] of real;
     s:real;
begin
     s:=0;
     for i:=0 to 29 do
      begin
        f[i]:=i*sin(i);
        if f[i]<0 then s:=s+f[i];
      end;
     for i:=0 to 29 do
     write(f[i]:6:2)
     writeln;
     writeln ('Summa otricatelnyh elementov massiva',k);
end.

Новые блоги и статьи Все статьи Все блоги /
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .