Дан массив. Подсчитайте количество элементов массива, равных наименьшему. (Массив из N,
Дан массив. Подсчитайте количество частей массива, одинаковых минимальному. (Массив из N, где N не более 100) (Паскаль)
Задать свой вопрос2 ответа
Алёна Олеванова
1. Современный вариант
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var min:=a.Min;
Writeln('Частей, равный минимальному: ',a.Where(x-gt;x=min).Count)
end.
Пример
n= 20
-9 5 5 -7 5 -5 -8 -4 9 5 -7 -10 -10 1 4 -10 -8 4 4 -4
Частей, равный минимальному: 3
2. Школьное решение в стиле ТурбоПаскаль 1983г.
const
nn=100;
var
a:array[1..nn] of integer;
n,i,min,k:integer;
begin
Write('n=');
Read(n);
Randomize;
min:=20;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]lt;min then min:=a[i]
end;
Writeln;
k:=0;
for i:=1 to n do
if a[i]=min then k:=k+1;
Writeln('Частей, равный наименьшему: ',k)
end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var min:=a.Min;
Writeln('Частей, равный минимальному: ',a.Where(x-gt;x=min).Count)
end.
Пример
n= 20
-9 5 5 -7 5 -5 -8 -4 9 5 -7 -10 -10 1 4 -10 -8 4 4 -4
Частей, равный минимальному: 3
2. Школьное решение в стиле ТурбоПаскаль 1983г.
const
nn=100;
var
a:array[1..nn] of integer;
n,i,min,k:integer;
begin
Write('n=');
Read(n);
Randomize;
min:=20;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]lt;min then min:=a[i]
end;
Writeln;
k:=0;
for i:=1 to n do
if a[i]=min then k:=k+1;
Writeln('Частей, равный наименьшему: ',k)
end.
Валерия Едиханова
Var
A:array[1..100] of integer;
N,Min,k:integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
Write('Исходный массив:');
For N:= 1 to N do
Begin
A[N]:=random(21)-10;
Write(' ',A[N]);
End;
Min:=A[1];
For N:= 2 to N do
if A[N] lt; Min then Min:=A[N];
k:=0;
For N:= 1 to N do
if A[N] = Min then k:=k+1;
WriteLn;
WriteLn('Min = ',Min);
Write('kMin = ',k);
End.
A:array[1..100] of integer;
N,Min,k:integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
Write('Исходный массив:');
For N:= 1 to N do
Begin
A[N]:=random(21)-10;
Write(' ',A[N]);
End;
Min:=A[1];
For N:= 2 to N do
if A[N] lt; Min then Min:=A[N];
k:=0;
For N:= 1 to N do
if A[N] = Min then k:=k+1;
WriteLn;
WriteLn('Min = ',Min);
Write('kMin = ',k);
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов