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

Тема в разделе "Pascal and Delphi", создана пользователем Romag, 16 мар 2012.

  1. Romag

    Romag Гость

    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.
     

    Вложения:

    • IMG_0002.jpg
      IMG_0002.jpg
      Размер файла:
      817,1 КБ
      Просмотров:
      15
    • IMG_0003.jpg
      IMG_0003.jpg
      Размер файла:
      850,9 КБ
      Просмотров:
      13
Загрузка...
Похожие Темы - Посмотрите Задачу Надо
  1. ioni
    Ответов:
    5
    Просмотров:
    3.911
  2. Gamlet
    Ответов:
    16
    Просмотров:
    6.962
  3. Gamlet
    Ответов:
    11
    Просмотров:
    5.242
  4. vital
    Ответов:
    21
    Просмотров:
    6.996
  5. GREED
    Ответов:
    1
    Просмотров:
    535

Поделиться этой страницей