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

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

Наш партнер Genesis Hackspace
  1. Romag

    Romag Гость

    Посмотрите Задачу Надо Домодернизировать Шаги посмотрите задачу я сделал по ней только сомневаюсь в правильности

    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
      Размер файла:
      817,1 КБ
      Просмотров:
      15
    • Посмотрите Задачу Надо Домодернизировать Шаги
      IMG_0003.jpg
      Размер файла:
      850,9 КБ
      Просмотров:
      13
Загрузка...
Похожие Темы - Посмотрите Задачу Надо
  1. ioni
    Ответов:
    5
    Просмотров:
    3.933
  2. Gamlet
    Ответов:
    11
    Просмотров:
    5.258
  3. vital
    Ответов:
    21
    Просмотров:
    7.018
  4. GREED
    Ответов:
    5
    Просмотров:
    711
  5. vovanabali
    Ответов:
    0
    Просмотров:
    594

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