Посмотрите Задачу Надо Домодернизировать Шаги

  • Автор темы Romag
  • Дата начала
R

Romag

#1
IMG_0001.jpg посмотрите задачу я сделал по ней только сомневаюсь в правильности

Program z2v;
Uses crt;
Var n,i,j,m:byte;
a:array[1..1000] of integer;
min:integer;
Begin
Clrscr;
writeln('n');
readln(n);
for i:=1 to n do
read(a);
for i:=2 to n do
begin
j:=i;
begin
min:=a[1];
if a[j]<min then begin min:=a[j];m:=j;end;
end;
end;
writeln('min=',min,'j=',j);
end.
 

Вложения