Var i: integer; // рабочая переменная для for k: integer; // количество минимальных элементов n: integer; // размер массива m : array [1..10] of integer; // собственно сам массив из "n" элементов i_min : integer; // индекс минимального элемента в массиве begin n: =10; k : = 0; i_min : = 1; for i : = 1 to n do begin m[i] : = random(10); // 10 - число от if (m[i]< m[i_min]) then begin k : = 1; i_min : = i end else if (m[i]=m[i_min]) then inc(k); end; // в переменной "k" - находится количество минимальных элементов end;
Спасибо
Ответ дал: Гость
ответ 2)
Ответ дал: Гость
25 декабря 1951 году был создан первый отечественный комп
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Вмассиве a(n) подсчитать количество минимальных элементов. в турбо паскале решите...
Популярные вопросы