Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 6
1

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

16.12.2010, 23:25. Показов 1858. Ответов 6
Метки нет (Все метки)

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

Желательно полная программа и объяснения к ней. Заранее большое спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2010, 23:25
Ответы с готовыми решениями:

Сколько элементов массива в результате будут равны 1?
Все элементы массива А(4х4) первоначально были равны 0.Затем значения элементов меняются с помощью...

Посчитать, сколько в массиве чисел кратных 13 или 7
Дан одномерный массив из 30 чисел с диапазоном (-230,770] посчитать сколько в массиве чисел кратных...

Определить сколько в массиве элементов равны регистру bl
Здравствуйте, assembler вижу впервые. Поставили задачу: "определить сколько в массиве элементов...

Посчитать сколько элементов в массиве =55
Здравствуйте . Есть такая задача: Проанализировать массив данных из 14 элементов. Подсчитать...

6
772 / 577 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
16.12.2010, 23:34 2
Цитата Сообщение от Олечка буся Посмотреть сообщение
сколько элементов массива равны 5 или сколько 5 в массиве
- уточните эту фразу.
0
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 6
16.12.2010, 23:40  [ТС] 3
Цитата Сообщение от STGE Посмотреть сообщение
- уточните эту фразу.
сколько элементов равны пяти или сколько пятерок есть в данном массиве
0
9 / 9 / 3
Регистрация: 21.10.2010
Сообщений: 42
16.12.2010, 23:50 4
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.
1
772 / 577 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
16.12.2010, 23:53 5
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]
1
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 6
17.12.2010, 00:11  [ТС] 6
STGE,layp спасибо вам большое,очень помогли!

Добавлено через 16 минут
Цитата Сообщение от layp Посмотреть сообщение
then inc(q);


Цитата Сообщение от layp Посмотреть сообщение
n:=random(50);
не могли бы вы поподробней объеснить эти моменты?
0
772 / 577 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
17.12.2010, 00:32 7
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2010, 00:32

Посчитать сколько отрицательных элементов содержится в массиве и вывести их
Посчитать сколько отрицательных элементов содержится в массиве и вывести их.

Посчитать сколько положительных элементов содержится в массиве и вывести их
Посчитать сколько положительных элементов содержится в массиве и вывести их.

Посчитать, сколько в массиве отрицательных, положительных и нулевых элементов
выполнить основные этапы решения задачи, ввод и вывод массива желательно оформить в виде процедур....

Посчитать сколько нулевых элементов содержится в массиве и вывести их
Посчитать сколько нулевых элементов содержится в массиве и вывести их.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.