сервис вопросов и ответовДан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение
5-9 класс|
|
Solovevdima
13 февр. 2014 г., 6:17:41 (10 лет назад)
Oltinbek16
13 февр. 2014 г., 8:16:28 (10 лет назад)
Program p1;
const n=10;
var a:array [1..n] of real;
i:byte;
max:real;
nmax:byte;
begin
//начало цикла ввода
For i:=1 to n do
//ввод
Readln(a[i])
//берём за максимальный 1ый элемент
max:=a[1];
//берём количество = 1
nmax:=1; /
/начало цикла проверки
For i:= 2 to n do
if a[i]> max then
begin
max:=a[i];
nmax:=1;
end else
if a[i]= max then
nmax:=nmax+1;
//вывод
Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax); end.
Ответить
Другие вопросы из категории
в Free Pascal'e. нужно записать программу. "Ввести три целых числа с клавиатуры. Найти их произведение, сумму и среднее арифметическое." p.s простите
за столько тем, первый раз сдесь..
Скільки байт потрібно, щоб закодувати кожну цифру натуральних чисел від
1 до 100?
Один із відомих методів кодування повідомлень стародавнього світу
носить ім’я Юлія Цезаря (І ст. до н. е.). З використанням цього методу
слово інформатика буде закодоване як крчсупгхйнг. Визначте
метод кодування Юлія Цезаря і закодуйте, використовуючи цей метод, слово калькулятор.
Читайте также
Помогите!:с нужно составить алгоритм на языке программирования Паскаль.
Дан массив, состоящий из 10 элементов. Определите, сколько элементов этого массива имеют максимальное значение.
1)Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2)Задан массив из 11 целых чисел. Посчитать количество нечётных
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Вы находитесь на странице вопроса "Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.