сервис вопросов и ответовОпишите на языке pascal алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов
10-11 класс|
|
Более простым способом,если можно,пожалуйста!!!
10 класс
Saniokurakov
16 окт. 2016 г., 16:01:47 (7 лет назад)
Вишенька2002013
16 окт. 2016 г., 18:14:06 (7 лет назад)
var
max,k:integer;
a:array[1..30] of integer;
procedure vvodmassiva;
begin
var i:integer;
for i:=1 to 30 do
begin
read(a[i]);
write(' ')
end
end;
procedure poiskmax;
var i:integer;
begin
max:=a[1];
for i:=2 to 30 do
if a[i]>max then max:=a[i]
end;
procedure poiskkol;
var i:integer;
begin
k:=0;
for i:=1 to 30 do
if a[i]=max then k:=k+1;
end;
begin
vvodmassiva;
poiskmax;
poiskkol;
write(k)
end.
Clumsyap
16 окт. 2016 г., 20:23:02 (7 лет назад)
// Предполагаем, что первый
// это максимальный элемент
v := a[1]; // значение максимального
n := 1; // число равных максимальному
for i := 2 to 30 do begin
// Если текущий элемен равен максимальному,
Ответить
Другие вопросы из категории
Задан двумерный массив Str, состоящий из элементов строкового типа. размерностью nxm.Подсчитайте количество элементов в массиве, длина которых больше
заданного числа d.(Не пойму как сделать так чтобы программа считала не всю строку, а по элементам)TURBO PASCAL
Помогите решить задачи по информатике :)
1) В случае истинности логического выражения (A>=X AND B>=X) OR (C<=X AND X<=D) можно
утверждать, что ...
(1) X принадлежит отрезку [C; D] и не принадлежит отрезку [A; B]
(2) X принадлежит одному из отрезков [A; B] , [C; D]
2)Для кодирования цвета одной точки, воспроизводимой на экране сотового телефона,
используется 12 бит, разрешение экрана 256*128. Минимальный объем видеопамяти в
килобайтах равен
(1) 16
(2) 384
(3) 32
(4) 48
3). Для записи сообщения используется 16-тисимвольный алфавит. Сообщение объемом 160 байт содержит
(1) 80 символов
(2)320 символов
(3) 10 символов
(4) 160 символов
4)Студент сдал экзамены сессии на оценки А и B. При истинности логического выражения
(A<5) OR (B<5) можно утверждать, что ...
(1) студент имеет хотя бы одну оценку ниже «5»
(2) студент имеет все оценки ниже «5»
(3) сессия сдана на оценки «4» или «5»
5)Сотовый телефон имеет монохромный экран с 8 градациями серого цвета и разрешение
96*68. Для кодирования цвета одной точки, воспроизводимой на экране сотового телефона,
используется 3 бита. Минимальный объем видеопамяти равен
(1) 19584 байт
(2) 6528 байт
(3) 2448 байт
(4) 52224 байт
Читайте также
Напишите на языках Pascal и C++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые числа от о до 10000 включительно. Опишите на естественном языке или на
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые числа от о до 10000 включительно. Опишите на естественном языке или на
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
Дан целочисленный массив из 30 элементов. Числа лежат в интервале от -500 до 500. Опишите на языке Паскаля алгоритм, который находит среднее
арифметическое всех чисел, которые кратны первому элементу. Гарантируется, что первый элемент положительный.
Составить приложение на языке Pascal.
С помощью ПК произвести обработку одномерного массива, заданного
в таблице. Элементы одномерного массива задать числами в диапазоне
– 20 . . . +50. Необходимо:
описать массив
ввести элементы массива из заданного диапазона;
выполнить с элементами массива действия
вывести результаты на экран.
Вы находитесь на странице вопроса "Опишите на языке pascal алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.