Найти среднее значения элементов заданного массива

@Nadyusha · Регистрация: 21.12.2009

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

1) Найти среднее значения элементов заданного массива размером 5. Преобразовать массив, вычитая из каждого элемента среднее значения.
2) Даны действительные числа a1, a2...a2n. Получить a[1]+a[2n], a[2]+a[2n-1],...a[n]+a[n+1].
3) Дан массив из 15 элементов, записать сначала все отрицательные элементы, затем положительные элементы во второй массив. Нули не заполнять.
4) Вычислить наибольший общий делитель двух натуральных чисел.
Помогите пожалуйста решить эти задачки. Искрении благодарна!

@WolfCF · 21.12.2009, 09:26

4
https://www.cyberforum.ru/pasc... 61509.html

@unick12345 · 21.12.2009, 09:47

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program test;
var a:array[1..5] of real; i:integer;j:real;
begin
randomize;
j:=0;
for i:=1 to 5 do
begin
a[i]:=random(20);
j:=j+a[i];
write(a[i]:4:2,' ');
end;
writeln;
j:=j/5;
writeln(j:4:2);
for i:=1 to 5 do
begin
a[i]:=a[i]-j;
write(a[i]:4:2,' ');
end;
readln;
end.

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program test;
uses crt;
const n=5;
var a:array[1..2*n] of real; i:integer;
begin
clrscr;
randomize;
for i:=1 to 2*n do
begin
a[i]:=random(20);
write(a[i]:4:2,' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]+a[2*n-i+1];
write(a[i]:4:2,' ');
end;
readln;
end.

Добавлено через 6 минут
3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program test;
uses crt;
var a,b:array[1..15] of integer; i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 15 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 15 do
if a[i]<0 then begin inc(j);b[j]:=a[i];end;
for i:=1 to 15 do
if a[i]>0 then begin inc(j);b[j]:=a[i];end;
for i:=1 to j do
write(b[i],' ');
readln;
end.

@Nadyusha · 21.12.2009, 17:53 **[ТС]**

Спасибо вам огромное!!!

Добавлено через 7 минут
Только одна проблема, училка не поверить что все это я сделала

. Спс за все задачки

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@Nadyusha 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 5

	Найти среднее значения элементов заданного массива 21.12.2009, 09:18. Показов 3003. Ответов 3 Метки нет (Все метки) 1) Найти среднее значения элементов заданного массива размером 5. Преобразовать массив, вычитая из каждого элемента среднее значения. 2) Даны действительные числа a1, a2...a2n. Получить a[1]+a[2n], a[2]+a[2n-1],...a[n]+a[n+1]. 3) Дан массив из 15 элементов, записать сначала все отрицательные элементы, затем положительные элементы во второй массив. Нули не заполнять. 4) Вычислить наибольший общий делитель двух натуральных чисел. Помогите пожалуйста решить эти задачки. Искрении благодарна! 0

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	21.12.2009, 09:26
	4 https://www.cyberforum.ru/pasc... 61509.html 1

@Nadyusha 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 5
	21.12.2009, 17:53 [ТС]
	Спасибо вам огромное!!! Добавлено через 7 минут Только одна проблема, училка не поверить что все это я сделала. Спс за все задачки 0

Опции темы