Найти минимальный элемент массива B(15) и определить его порядковый номер

@Димон223 · Регистрация: 26.01.2014

Помогите с задачкой на массив:
Найти минимальный элемент массива B(15) и определить его порядковый номер.

@ermolay · 02.03.2014, 21:51

Pascal

i_min:=1;
for i:=2 to 15 do
  if a[i]<a[i_min] then i_min:=i;
// a[i_min] - минимальный элемент
// i_min - его номер

@Varsavia · 02.03.2014, 21:52

Pascal

Program primer1;
const a=15;
var i,c,s:integer;
   m: array [1..a] of integer;
begin
s:=0;
Writeln('Элименты массива');
for i:=1 to  a do 
 m[i]:=random(5)+3;
 for i:=1 to a do
write(m[i],' ');
c:=m[1];
 for i:=1 to a do
 begin
 if (m[i]<c) then
 begin
 c:=m[i]; s:=i;
 end; end;
 Writeln('Минимальное значение= ',c,' Его номер= ',s);
 end.

@Димон223 0 / 0 / 0 Регистрация: 26.01.2014 Сообщений: 24
		1
	Найти минимальный элемент массива B(15) и определить его порядковый номер 02.03.2014, 20:53. Показов 2788. Ответов 2 Метки нет (Все метки) Помогите с задачкой на массив: Найти минимальный элемент массива B(15) и определить его порядковый номер. 0

Опции темы

Найти минимальный элемент массива B(15) и определить его порядковый номер

Решение