Получить ответ

Лена 4.2 4 отзыва Рейтинг: 368 Общаться в чате uses crt; var count,min:integer; i,n:integer; var a:array[0..100] of integer; begin clrscr; Write ('введите размерность массивов:'); Readln(n);    for i:=1 to n do    begin      Readln (a[i]);    end;  for i:=0 to n-1 do  begin    min:=a[1];    count:=0;    if (a[i]>a[i+1]) then min:=a[i+1];    if(a[i]=0) then inc(count);  end;   writeln('Минимальный элемент min =',min);   writeln('Количество нулевых элементов counter = ',count); readln; end. Добрый день. Меня заинтересовал ваш ответ "uses crt; var count,min:integer; i,n:integer; var a:array[0..100] of integer; begin clrscr; ..." на вопрос http://www.liveexpert.org/topic/view/159969-. Можно с вами обсудить этот ответ? Обсудить с экспертом 10.12.11

Еva 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы