Найти номер минимального элемента массива в приведенной программе

@Tatyana___koten · Регистрация: 15.12.2009

Студворк — интернет-сервис помощи студентам

Pascal

const n=6;
 
var a:array[1..n] of integer;
i,imn: byte;
s: integer;
 
begin
 
randomize;
 
writeln('Исходный массив:');
for i:=1 to n do
    begin
        a[i]:=random(50);
        write(a[i],' ');
    end;
 
writeln;
writeln;
imn:=1;
for i:=2 to n do
    if a[i]<a[imn] then imn:=i;
 
writeln('Минимальный элемент = ',a[imn]);
writeln;
 
s:=0;
for i:=imn+1 to n do
    s:=s+a[i];
write('Сумма элементов после минимального = ',s);
 
end.

@Inadequate · 19.03.2010, 08:31

Tatyana___koten, ну imn - это и есть номер минимального.

@Tatyana___koten · 19.03.2010, 08:40 **[ТС]**

просто надо было исправить IMN НА MIN Я так понимаю...???

@Inadequate · 19.03.2010, 08:53

Ничего исправлять не надо. В переменной imn будет хранится нужный тебе номер. Просто выведи его.

@Tatyana___koten · 19.03.2010, 11:22 **[ТС]**

ойййййй....а как это будет выглядеть ...

@Inadequate · 19.03.2010, 11:28

Pascal

1	WriteLn(imn);

@Tatyana___koten · 19.03.2010, 11:29 **[ТС]**

а вообщем сама задача мм муррррр плиз не поленитесь мяуффффффф

@Kizer · 19.03.2010, 11:52

вообще, конечно ужасно, что не понимаете, что там написано, ибо это довольно простая задача.

Pascal

const n=6;
 
var a:array[1..n] of integer;
i,imn: byte;
s: integer;
 
begin
 
randomize;
 
writeln('Исходный массив:');
for i:=1 to n do
    begin
        a[i]:=random(50);
        write(a[i],' ');
    end;
 
imn:=1;
for i:=2 to n do
    if a[i]<a[imn] then imn:=i;
 
writeln('Номер минимального элемента =  ',imn);
writeln;
 
end.

@Tatyana___koten · 19.03.2010, 11:53 **[ТС]**

замечательно что есть этот сайт уфффффф

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	19.03.2010, 08:31	2
	Tatyana___koten, ну imn - это и есть номер минимального. 1

@Tatyana___koten 1 / 1 / 0 Регистрация: 15.12.2009 Сообщений: 40
	19.03.2010, 08:40 [ТС]	3
	просто надо было исправить IMN НА MIN Я так понимаю...??? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	19.03.2010, 08:53	4
	Ничего исправлять не надо. В переменной imn будет хранится нужный тебе номер. Просто выведи его. 0

@Tatyana___koten 1 / 1 / 0 Регистрация: 15.12.2009 Сообщений: 40
	19.03.2010, 11:22 [ТС]	5
	ойййййй....а как это будет выглядеть ... 0

@Tatyana___koten 1 / 1 / 0 Регистрация: 15.12.2009 Сообщений: 40
	19.03.2010, 11:29 [ТС]	7
	а вообщем сама задача мм муррррр плиз не поленитесь мяуффффффф 0

@Tatyana___koten 1 / 1 / 0 Регистрация: 15.12.2009 Сообщений: 40
	19.03.2010, 11:53 [ТС]	9
	замечательно что есть этот сайт уфффффф 0

Опции темы