Определить, сколько чисел принимает наименьшее значение и каково это значение

@Gany1999 · Регистрация: 06.03.2013

Студворк — интернет-сервис помощи студентам

Наптсат программу, обеспечивающий, ввод n целых чисел и определяющий, сколько из них принимает нвименьшее значение и каково это значение.

@CodeR · 06.03.2013, 12:42

Pascal

Var A:array[1..100] of integer;
    i,n,min,k:integer;
Begin
    write('Введите N: ');readln(n);
    For i:=1 to n do
    Begin
      write(i,' число - ');readln(A[i]);
      if i=1 then min:=A[i];
      if A[i]<min then min:=A[i];
    End;
    For i:=1 to n do
     if A[i]=min then inc(k);
    writeln('Min = ',min);
    writeln('Встречается ',k,' раз(а)');
    readln;
End.

@Gany1999 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 23
		1
	Определить, сколько чисел принимает наименьшее значение и каково это значение 06.03.2013, 09:42. Показов 1858. Ответов 1 Метки нет (Все метки) Наптсат программу, обеспечивающий, ввод n целых чисел и определяющий, сколько из них принимает нвименьшее значение и каково это значение. 0

Опции темы

Определить, сколько чисел принимает наименьшее значение и каково это значение

Решение