Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Работа с динамическими структурами данных: двунаправленные списки, кольца https://www.cyberforum.ru/ pascal/ thread804045.html
Выполнить задание с использованием двунаправленных списков (колец). Даны символьные файлы f и g. Записать в список все несовпадающие компоненты f и g.
Pascal фрактальная геометрия
Показать электролиз на основе фрактальной геометрии. Вроде как можно через береговую линию делать...но блин....никак не могу сделать. Помогите!!!((((
Pascal Определить, какая фигура имеет большую площадь. https://www.cyberforum.ru/ pascal/ thread803815.html
Заданы радиус круга, сторона квадрата, две смежные стороны прямоугольника и три стороны прямоугольника и три стороны треугольника. Определить, какая фигура имеет большую площадь. Написать программу в PASCAL
Pascal Как ограничить введение данных символами латинского алфавита https://www.cyberforum.ru/ pascal/ thread803801.html
Как в процедуре input_set ограничить вводимые данные символами от 'A' до 'Z' (a..z) и требовать повтора ввода, если они неверные? program sets; uses crt; const MAX = 50; type T = char; TSet = array of t; procedure sort(var A: TSet; const n: integer);
Для заданной матрицы А(н,м) напечатать индексы всех ее седловых точек. Pascal
Помогите пожалуйста! Дана седловая точка-элемент матрицы. Он наименьший в своей строке и одновременно наибольший в своем столбце или наоборот. Для заданной матрицы А(н,м) напечатать индексы всех ее седловых точек.
Pascal Массив: Получить матрицы 1/2(A+A*) и 1/2(A-A*). https://www.cyberforum.ru/ pascal/ thread803767.html
Дана квадратная матрица А порядка m. Получить матрицы 1/2(A+A*) и 1/2(A-A*).
Pascal Прокладка проводов https://www.cyberforum.ru/ pascal/ thread803759.html
Кусок медного провода длинной 5 метров имеет массу 430 грамм. Чтобы провести проводку в квартире требуется C метров. Хватит ли для этой цели мотка провода массой M грамм? программу нужно написать в PASCAL! помогите пожалуйста!
Pascal Удвоить эти числа, если a < b < c, и заменить их абсолютными значениями, если это не так
Даны Вещества. Числа : a, b, c. Удвоить эти числа, если a < b < c, и заменить их абсолютными значениями, если это не так. Нужно создать программу в PASCAL.
Pascal Создать графическую оболочку Помогите создать оболочку для программы, написанной в pascal uses crt; const rz=; var s,s1:string; a:array of byte; i,j,k,n:byte; begin writeln('Введите текст'); read(s); https://www.cyberforum.ru/ pascal/ thread803524.html Pascal Графика (алгоритм Брезенхема) Необходимо написать программу в которой реализовать алгоритм Брезенхема для построения отрезка прямой. Отрезки рисовать разными цветами для сравнения, например, отрезок построенный по Брезенхему синий, а отрезок построенный при помощи стандартной функции красный. Это необходимо для того чтобы сравнить полученные результаты. https://www.cyberforum.ru/ pascal/ thread803480.html
Нужно составить программу для вычисления функции Pascal
Нужно составить программу для вычисления функции F(x)= { x^2, если 0< или = x < или = 3, u, если x > 3 или x < 0
Pascal Решение систем дифференциальных уравнений https://www.cyberforum.ru/ pascal/ thread803237.html
Программа отказывается принимать дробные числа, помогите пожалуйста найти ошибку. program project; const jm=5; type mas=arrayof real; var J1,J2,C1,C2,Kc,M,J,K1,K2:real; t0,t,tk,h:real; q,n:integer; f,x0,x:mas;
Заблокирован
09.03.2013, 21:14 0

Определить сколько чисел принимает наибольшее значение - Pascal - Ответ 4231126

09.03.2013, 21:14. Показов 6323. Ответов 3
Метки (Все метки)

Ответ

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
Program Prog;
const
    N = 10;
var
    massive: array[1..N] of integer;
    maximum: integer;
    i: integer;
    count: integer;
begin
    Write('Enter ', N, ' numbers : ');
    for i:=1 to N do
        Read(massive[i]);
 
    maximum := massive[1];
    for i:=2 to N do
        if massive[i] > maximum then
            maximum := massive[i];
            
    for i:=1 to N do
        if massive[i] = maximum then
            count := count + 1;
            
    WriteLn(count);
            
    ReadLn;
    ReadLn;
end.


Вернуться к обсуждению:
Определить сколько чисел принимает наибольшее значение Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2013, 21:14
Готовые ответы и решения:

Определить, сколько чисел последовательности принимает наибольшее значение
Задание - Даны целое n&gt;0 и целые числа a1, a2, ..., an. Определить,сколько чисел последовательности...

Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение
Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с...

Определить сколько раз меняется знак в последовательности. Найти номера пары точек, расстояние мужду которыми наибольшее.
23. Задан массив действительных чисел. Определить, сколько раз меняется знак в данной...

Определить наибольшее значение переменной s после выполнения данной программы
1983 В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен ...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2013, 21:14
Помогаю со студенческими работами здесь

Определить, какое наибольшее значение может иметь переменная s после выполнения программы?
1982 В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен...

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или 2 в десятичной форме.
Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или...

Определить, сколько чисел принимает наименьшее значение и каково это значение
Наптсат программу, обеспечивающий, ввод n целых чисел и определяющий, сколько из них принимает...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru