В одномерном массиве из 5 целых чисел найти максимальный по значению эллемент и его индекс.результат вывести на екран
10-11 класс
|
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.
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.
а цифры вводятся с клавиатуры или рандомно?
понятия не имею
(7) : Встречено ']', а ожидалось ')' помоги исправить вот что пишет програма
ага там write ('a[', i, '] = ');
Другие вопросы из категории
язык паскаль , const n=4;m=2;
спасибо
1. Напечатать числовой ряд: 1,7,13,19,25,31,……….61 с помощью цикла «пока».
2. Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «Нужно продолжить работу?», и пользователь отвечаетда/нет. Программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше.
3. Дан массив из 10-ти чётных натуральных чисел – от 2 до 20.
А) Найдите сумму элементов массива.
Б) Найдите минимальный элемент массива.
4. Дан массив из 15 подряд идущих натуральных чисел, начиная с 50.
А) Найдите произведение элементов массива.
Б) Найдите максимальный элемент массива.
16-битовый код Unicode. При этом объем сообщения увеличился на 288 бит. Сколько символов в сообщении?
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
организовать путем ввода с клавиатуры. В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел.
Помогите пожалуйста написать программу)
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.