МАССИВЫ
Добавлено: 03 дек 2010, 11:56
Дан массив из 10 целых чисел.Определить,сколько из них принимает наименьшее значение.
min:=a[1];
n:=1;
for i:=1 to 10 do
begin
if a<min then
begin
min:=a;
n:=1;
end
else if a=min then
inc(n);
end;
или так
Program m1;
uses crt;
Var mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0; Program m1;
uses crt;
Var mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0;
Writeln ('Введите наименьшее значение!');
readln (x);
Writeln ('Введите массив:');
for i:=1 to 10 do
begin write ('[',i,']='); readln (mas);
if mas = x then
n:=n+1; end;
write ('Вот введеный вами массив -');
for i:=1 to 10 do begin write ('');
write (mas:3,' '); end; writeln;
writeln('______________________________________________________');
Writeln ('количество элементов = ',n);
end.
min:=a[1];
n:=1;
for i:=1 to 10 do
begin
if a<min then
begin
min:=a;
n:=1;
end
else if a=min then
inc(n);
end;
или так
Program m1;
uses crt;
Var mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0; Program m1;
uses crt;
Var mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0;
Writeln ('Введите наименьшее значение!');
readln (x);
Writeln ('Введите массив:');
for i:=1 to 10 do
begin write ('[',i,']='); readln (mas);
if mas = x then
n:=n+1; end;
write ('Вот введеный вами массив -');
for i:=1 to 10 do begin write ('');
write (mas:3,' '); end; writeln;
writeln('______________________________________________________');
Writeln ('количество элементов = ',n);
end.