Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве

@Олечка буся · Регистрация: 16.12.2010

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

Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве

Желательно полная программа и объяснения к ней. Заранее большое спасибо!

@STGE · 16.12.2010, 23:34

Сообщение от Олечка буся

сколько элементов массива равны 5 или сколько 5 в массиве

- уточните эту фразу.

@Олечка буся · 16.12.2010, 23:40 **[ТС]**

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

- уточните эту фразу.

сколько элементов равны пяти или сколько пятерок есть в данном массиве

@layp · 16.12.2010, 23:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a:array [1..50] of integer;
i,n,q: integer;
begin
randomize;
n:=random(50);
writeln ('Массив:');
for i:=1 to n do
begin
a[i]:= random(10);
write (a[i],' ');
end;
for i:=1 to n do
if a[i]=5 then inc(q);
writeln;
writeln('Количество  элеметнов равное пяти: ',q)
end.

@STGE · 16.12.2010, 23:53

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
[FONT=monospace]uses crt;
const n=10;
var mas: array[1..n] of integer; k, i: byte;
begin  
 k:=0;
 randomize;
 clrscr;
 writeln ('исходный массив: '); 
 for i:=1 to n do
  begin    
   mas[i]:=random(11)-5;
   write (mas[i]:3);
    end;
 writeln;
 for i:=1 to n do
  if mas[i]=5 then inc (k);
 writeln ('в массиве ',k,' элементов имеют значение равное пяти');
end.
 
[/FONT]

@Олечка буся · 17.12.2010, 00:11 **[ТС]**

STGE,layp спасибо вам большое,очень помогли!

Добавлено через 16 минут

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

then inc(q);

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

n:=random(50);

не могли бы вы поподробней объеснить эти моменты?

@STGE · 17.12.2010, 00:32

inc (x) - это процедура, увеличивающая значение порядковой переменной на 1 - данная форма записи процедуры inc является сокращенной; полная форма - inc (x, n) - увеличение переменной x на n, где x и n - целые числа

n:=random(p-1) - процедура random служит в качестве генератора случайного числа (в данном случае от 0 до p-1; n:=random(50) - n принимает случайное значение в диапазоне от 0 до 49)

Новые блоги и статьи Все статьи Все блоги /
Шаблоны и протоколы для создания устойчивых микросервисов ArchitectMsa 19.04.2025 Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .	Изменяемые и неизменяемые типы в Python py-thonny 19.04.2025 Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .	Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .	Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .

@Олечка буся 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 6

	Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве 16.12.2010, 23:25. Показов 2507. Ответов 6 Метки нет (Все метки) Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве Желательно полная программа и объяснения к ней. Заранее большое спасибо! 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	16.12.2010, 23:34
	Сообщение от Олечка буся сколько элементов массива равны 5 или сколько 5 в массиве - уточните эту фразу. 0

@Олечка буся 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 6
	16.12.2010, 23:40 [ТС]
	Сообщение от STGE - уточните эту фразу. сколько элементов равны пяти или сколько пятерок есть в данном массиве 0

@Олечка буся 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 6
	17.12.2010, 00:11 [ТС]
	STGE,layp спасибо вам большое,очень помогли! Добавлено через 16 минут Сообщение от layp then inc(q); Сообщение от layp n:=random(50); не могли бы вы поподробней объеснить эти моменты? 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	17.12.2010, 00:32
	inc (x) - это процедура, увеличивающая значение порядковой переменной на 1 - данная форма записи процедуры inc является сокращенной; полная форма - inc (x, n) - увеличение переменной x на n, где x и n - целые числа n:=random(p-1) - процедура random служит в качестве генератора случайного числа (в данном случае от 0 до p-1; n:=random(50) - n принимает случайное значение в диапазоне от 0 до 49) 1

Опции темы