ПОМОГИТЕ Создать массив по задачи которая дана .имеется целочисленный массив состоящий из 15 элементов . найти минимальный элемент и его индекс.
5-9 класс
|
Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
end.
Другие вопросы из категории
1. Дан массив состоящий из 12 случайных целых чисел от -5 до 12. Все его элементы умножить на последний элемент.
2.Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.
3. В массиве хранится информация о росте 25 челловек. Определить, на сколько рост самого высокого человека превышает рост самого низкого.
4. Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл for...downto). Если четных елементов нет. то должно быть напечатано соответствующее сообщение.
Читайте также
шкаф:a,b,c
дверь:x,y
Можно ли пронести шкаф в дверь??
1. Задать случайным образом 13 элементов числового массива – числа от 10 до 50. Удалить из него:
а) 10-ый элемент;
б) минимальный элемент.
2. Из символьного массива, 7 элементов которого заданы с клавиатуры, удалить максимальный элемент.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.