сервис вопросов и ответовВ одномерном массиве из 5 целых чисел найти максимальный по значению эллемент и его индекс.результат вывести на екран
10-11 класс|
|
Gruzin009
08 апр. 2014 г., 9:40:00 (10 лет назад)
Mihailova9eliz
08 апр. 2014 г., 11:00:19 (10 лет назад)
uses crt;
var mas: array [1..5] of integer;
x, max, pos: integer;
begin
max:=-maxint;
for x:=1 to 5 do begin
write('mas[',x,']: ');
readln(mas[x]);
if mas[x]>max then begin
max:=mas[x];
pos:=x;
end;
end;
writeln;
write('Максимальный элемент: ',max,'. Позиция элемента: ',pos);
end.
2001ekaterina
08 апр. 2014 г., 13:13:03 (10 лет назад)
Program z;
Var a:array [1..5] of integer;
i, max, k :intefer;
Begin
max:=-999999;
For i:=1 to 5 do begin
Write ('a [, i, '] = '); read (a[i]);
if a[i] > max then begin
max:= a[i];
k:=i;
end;
end;
writeln;
write (max, ' ', k);
end.
Кира9718
08 апр. 2014 г., 18:32:54 (10 лет назад)
а цифры вводятся с клавиатуры или рандомно?
Kyznecov0812
08 апр. 2014 г., 21:32:02 (10 лет назад)
понятия не имею
Ruslan196
09 апр. 2014 г., 0:00:13 (10 лет назад)
(7) : Встречено ']', а ожидалось ')' помоги исправить вот что пишет програма
89299285434
09 апр. 2014 г., 0:33:47 (10 лет назад)
ага там write ('a[', i, '] = ');
Ответить
Другие вопросы из категории
найти строку двумерного массива с наименьшей суммой элементов
язык паскаль , const n=4;m=2;
Здравствуйте! Помогите решить задания! Не понимаю программу Кумир, к сожалению, завтра последняя возможность исправить оценку. заранее
спасибо
1. Напечатать числовой ряд: 1,7,13,19,25,31,……….61 с помощью цикла «пока».
2. Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «Нужно продолжить работу?», и пользователь отвечаетда/нет. Программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше.
3. Дан массив из 10-ти чётных натуральных чисел – от 2 до 20.
А) Найдите сумму элементов массива.
Б) Найдите минимальный элемент массива.
4. Дан массив из 15 подряд идущих натуральных чисел, начиная с 50.
А) Найдите произведение элементов массива.
Б) Найдите максимальный элемент массива.
Автоматическое устройство выполнило перекодировку информационного сообщения на русском языке, которое было записано в 8-битовой кодировке КОИ-8 в
16-битовый код Unicode. При этом объем сообщения увеличился на 288 бит. Сколько символов в сообщении?
Читайте также
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Составить блок-схему алгоритма и программу на алгоритмическом языке программирования БЕЙСИК обработки одномерного массива. Заполнение массива элементами
организовать путем ввода с клавиатуры. В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел.
В последовательности из 15 целых чисел найти максимальный элемент из четных.
Помогите пожалуйста написать программу)
Написать программу, которая вводит с клавиатуры одномерный массив из n целых чисел, после чего выводит нулевые элементы с их индексами (их можно и не
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
Помогите составить блок-схему алгоритма и программу на алгоритмическом языке программирования БЕЙСИК обработки одномерного массива.Заполнение массива
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.
Вы находитесь на странице вопроса "В одномерном массиве из 5 целых чисел найти максимальный по значению эллемент и его индекс.результат вывести на екран", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.