сервис вопросов и ответовв массиве подсчитать количество максимальных и минимальных элементов и выяснить ккаких больше.
10-11 класс|
|
Anazensa
27 марта 2014 г., 19:29:06 (10 лет назад)
Milyuhinaolga
27 марта 2014 г., 20:26:32 (10 лет назад)
Program vadim_Loh;
uses crt;
const
N = 10;
var min,max,i:integer;
A:array [1..n] of integer;
begin
max:=0;
min:=101;
randomize;
for i:=1 to n do
A[i]:=random(100);
for i:=1 to n do
writeln('BCE ELEMENTI MASSIVA=',a[i]);
for i:=1 to n do
if A[i] < min then
min:=A[i];
if A[i]> max then
max:=A[i];
writeln('MAKSIMUM =',max);
writeln('MINIMUM =',min);
If max > min then
writeln('MAX BOLSHE')
else
writeln('MINIMALNUX bolshe');
end.
Как то так.
Ответить
Другие вопросы из категории
помгите пожалуйста решить задачууу (вложение1), есть задача наподобии (вложение 2,3), нужно по такому же принципу решить и мою задачу. но я все равно
не понимаю как решать? помогите пожалуйста.
написать программы 1)В одномерном массиве с(1:10) найти количество элементов удовлетвор. условию с от i >q и с от i<l . 2)Найти
минимальный и максимальный элемент массива и его индекс .
Ребята помогите очень надо!
Какой информационный объем изображения 2000 на 3000 точек, содержащего 4 цвета?
Читайте также
1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
Задан одномерный массив А(N) (N<=60). На место минимального элемента массива записать сумму последних К элементов массива. Если А[1]>=0, то умножить
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
Помогите пожалуйста решить))) или хотя бы натолкнуть на мысль )) 1) Записать элементы массива Х, удовлетворяющие условию 1≤Xi≤2, подряд в массив
Y. Поменять местами максимальный и минимальный элементы в массиве Y.
2) Заменить строку матрицы Р(n,m) с минимальной суммой элементов на строк, где находится максимальный элементы матрицы.
3) Определить, пересекаются ли параболы у=ах2+bc+c и y=dx2+mx+n. Если пересекаются, то найти точку пересечения.
Дан одномерный массив положительных целых чисел. Последовательно преобразовать этот массив по следующему алгоритму: Находится первый максимальный элемент
и устанавливается первым в массиве, затем из оставшихся находится минимальный элемент и устанавливается вторым в массиве, после чего отыскивается из оставшихся элементов максимальный и устанавливается третьим в массиве и т.д. Размерность массива задается с клавиатуры.
Помогите, пожалуйста, не получается.
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Вы находитесь на странице вопроса "в массиве подсчитать количество максимальных и минимальных элементов и выяснить ккаких больше.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.