Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.
Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.
Гость
Ответ(ы) на вопрос:
ГостьProgram my;
var k,i,z:integer;
a:array[1...N]:integer;
begin
k:=99999;
for i:=1 to N do
if a[i]
Гостьuses crt;
const N=10;
var a:array [1..N] of integer;
x,min,k:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:',a[x]);
readln(a[x]);
end;
min:=a[1];
for x:=1 to N do
if a[x]
Не нашли ответ?
Похожие вопросы