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

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива

15.02.2009, 19:48. Просмотров 1733. Ответов 1
Метки нет (Все метки)

1. Составьте программу подсчета числа наименьших по модулю элементов одномерного массива А(p);
2. Составьте программу вычисления суммы тех элементов массива, которые превосходят среднее арифметическое элементов данного массива.
3. Составьте программу, проверяющую, есть ли в одномерном массиве A(N) числа В, С, причем определяющую, какое из чисел встречается в массиве чаще.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2009, 19:48
Ответы с готовыми решениями:

Подсчет числа наименьших по модулю элементов одномерного массива
Составьте программу подсчета числа наименьших по модулю элементов одномерного массива А(p)

Составьте программу вычисления суммы элементов одномерного массива
Составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в этом...

Составьте программу, которая запрашивает значения элементов одномерного числового массива
Составьте программу, которая запрашивает значения элементов одномерного числового массива А,...

Составьте программу упорядочению (по возрастанию) элементов одномерного массива A(N) принадлежащего отрезку (O;R)
помогите пожалуйста с задачей Составьте программу упорядочению (по возрастанию) элементов ...

Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива.
Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед...

1
pascal65536
11 / 11 / 3
Регистрация: 26.09.2008
Сообщений: 77
15.02.2009, 21:05 2
Лучший ответ Сообщение было отмечено Serzh007 как решение

Решение

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
26
27
28
Uses CRT;
 
Const N = 20;
 
Var A : Array [1..N] of Integer;
    I, B, C, BB, CC : Integer;
 
Begin
     For I := 1 To N Do
         A[I]:=Random(10);
     For I := 1 To N Do Write (A[I]:3);
         WriteLn;
     BB := 0;
     CC := 0;
     
     B := 4;
     C := 2;
 
     For I := 1 To N Do
     Begin
          If B = A[I] Then BB:=BB+1;
          If C = A[I] Then CC:=CC+1;
     End;
 
     If BB > CC Then WriteLn(B, ' встречается чаще, чем ',C);
     If BB < CC Then WriteLn(C, ' встречается чаще, чем ',B);
     If BB = CC Then WriteLn(B, ' и ', C, ' встречаются одинаковое количество раз (', BB,')');
End.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2009, 21:05

Составьте программу, которая запрашивает количество (не более 100) и значения элементов одномерного числового массива А, формирует и выводит на экран
Составьте программу, которая запрашивает количество (не более 100) и значения элементов одномерного...

Составьте программу подсчета числа одинаковых букв
1. Составьте программу подсчета числа одинаковых букв,стоящих на одних и тех же местах в словах Х и...

Составьте программу подсчета числа различных букв в слове
Составьте программу подсчета числа различных букв в слове


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

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

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