Цитата:
Сообщение от opskaka
или сначала нужно вести массив,потом вычислить наименьшее из элементов и посчитать сколько таких элементов,равных наименьшему?Люди,помогите пожалуста...голова кругом....простая задача...не врубаюсь!!!!
|
Да никаких проблем. Действительно, желательно, чтобы программа сама нашла наименьший элемент. Например, так:
Код:
Program m1;
uses crt;
Var
mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0;
x:=32000;
Writeln ('Введите массив:');
for i:=1 to 10 do
begin
write('[',i:2,']= ');
readln(mas[i]);
if mas[i]<x then x:=mas[i];
end;
writeln('Вот введеный вами массив:');
for i:=1 to 10 do
begin
write (mas[i]:3,' ');
if mas[i]=x then n:=n+1;
end;
writeln;
writeln('_______________________________________________________');
Writeln ('количество элементов = ',n);
readkey;
end.