Вычислить, используя подпрограмму для вычисления суммы

@red5anta · Регистрация: 17.12.2019

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

Для заданного массива А из 20 действительных чисел вычислить, используя
подпрограмму для вычисления суммы:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{15}*{a}_{i}; \sum_{i=10}^{20}*{a}_{i}; \sum_{i=5}^{19}*{a}_{i}; \sum_{i=9}^{18}*{a}_{i};$

@Puporev · 28.10.2020, 12:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function summa(a:mas;i1,i2:integer):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=i1 to i2 do
s:=s+a[i];
summa:=s;
end;
var a:mas;
    i:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:1);
 end;
writeln;
writeln('Сумма с 1 по 15=',summa(a,1,15):0:1);
writeln('Сумма с 10 по 20=',summa(a,10,20):0:1);
writeln('Сумма с 5 по 19=',summa(a,5,19):0:1);
writeln('Сумма с 9 по 18=',summa(a,9,18):0:1);
end.

@red5anta · 28.10.2020, 12:51 **[ТС]**

Выдаёт ошибки:

Строка 1 - Неизвестное имя 'mas'
Строка 6 - Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
Строка 15 - Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

Как их исправить?

@Puporev · 28.10.2020, 15:23

Извини, пропустил в начале

Pascal
1
2
const n=20;
type mas=array[1..n] of real;

Добавлено через 2 часа 25 минут

Сообщение от red5anta

параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

Так тему нужно создавать в разделе АВС.net,
https://www.cyberforum.ru/pascalabc-net/
a не в простом АВС.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@red5anta 12 / 10 / 3 Регистрация: 17.12.2019 Сообщений: 180

	Вычислить, используя подпрограмму для вычисления суммы 28.10.2020, 12:03. Показов 1794. Ответов 3 Метки нет (Все метки) Для заданного массива А из 20 действительных чисел вычислить, используя подпрограмму для вычисления суммы: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{15}{a}_{i}; \sum_{i=10}^{20}{a}_{i}; \sum_{i=5}^{19}{a}_{i}; \sum_{i=9}^{18}{a}_{i};$ 0

@red5anta 12 / 10 / 3 Регистрация: 17.12.2019 Сообщений: 180
	28.10.2020, 12:51 [ТС]
	Выдаёт ошибки: Строка 1 - Неизвестное имя 'mas' Строка 6 - Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла Строка 15 - Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла Как их исправить? 0

Вычислить, используя подпрограмму для вычисления суммы

Решение