1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Romag, 16 мар 2012.

  1. Romag

    Romag Гость

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

    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
Загрузка...

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