Найти в одномерном массиве сумму и количество элементов

@Dax · Регистрация: 23.03.2014

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

Если кому-нибудь понадобиться найти в одномерном массиве сумму, количесво и т. д., то я могу с этим помочь:
написал алгоритм, который ищет практически все

проверьте на правильность и пользуйтесь, дарю

Pascal

program univers;
var i,n, imin, imax,p :integer;
var s,min,max,k,k1,k2:integer;
var sr :real;
x:array[1..25] of integer;
begin
read(n);
for i:=1 to n do read(x[i]);
s:=0;
for i:=1 to n do s:=s+x[i];
k:=0;// общее
for i:=1 to n do inc(k);
k1:=0;// полжительные 
for i:=1 to n do if x[i]>0 then inc(k1);
k2:=0; // отрицательные
for i:=1 to n do if x[i]<0 then inc(k2);
P:=1; //произведение 
for i:=1 to n do P:=p*x[i];
sr:=s/k;// среднее
max:=x[1];// максимум 
for i:=2 to n do if x[i]>max then max:=x[i];
imax:=1; // номер максимума
for i:=2 to n do if x[i]>imax then imax:=i;
min:=x[1];// минимум 
for i:=2 to n do if x[i]<min then min:=x[i];
imin:=1; ..номер минимума
for i:=2 to n do if x[i]<imin then imin:=i; 
write(k,' ',s,' ',k1,' ',k2, ' ',p,' ',sr,' ',max,' ',imax,' ',min,' ',imin   ); 
end.
//integer взят чтоб можно было использовать inc()

Добавлено через 2 часа 14 минут
Кому помогло, вспомните меня добрым словом.

Добавлено через 12 минут
Если кто может подкинуть подобный матерьял -милости просим

@APALoff · 26.03.2014, 10:02

Лучше почитайте, что такое структуризация и оформите все в виде процедур/функций.

@Dax · 26.03.2014, 10:07 **[ТС]**

Преследовал цель написать именно типовой алгоритм без процедур и функций, так как иногда требуются именно такие.
Спасибо, учту.

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@APALoff 1647 / 1076 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	26.03.2014, 10:02	2
	Лучше почитайте, что такое структуризация и оформите все в виде процедур/функций. 1

@Dax Модератор 1356 / 653 / 207 Регистрация: 23.03.2014 Сообщений: 3,057
	26.03.2014, 10:07 [ТС]	3
	Преследовал цель написать именно типовой алгоритм без процедур и функций, так как иногда требуются именно такие. Спасибо, учту. 0