olgapotapova
?>

Дан массив. подсчитайте количество элементов массива, равных минимальному. (массив из n, где n не более 100) (паскаль)

Информатика

Ответы

martabunova
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->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]<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.
Viktorovna1012
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] < 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.
Volkovapavel

Відповідь:



Пояснення:

1 . обычный режим;  режим Web-документа;  режим разметки страницы;  режим структуры документа;  схема документа;  во весь экран;  режим предварительного просмотра.

2 . режим разметки страницы

3. Enter

4.  1) «Alt» +«0151». Цифры  на цифровой клавиатуре, которая находится справа, при включенном «NumLock».

   2) наберите «2014» и нажмите «Alt+X» –

   3) «Ctrl+Alt+-

   4) «Вставка»\«Символ» \«Другие символы»\«Шрифт»\«(обычный текст)»\«Набор» – «знаки пунктуации»\«Вставить»

5. 1) «Ctrl+-»

   2) символ "-"

6. 1950 =  MCML

   1963 =  MCMLXIII

I - 1

X - 10

C - 100

M - 1000

V - 5

L - 50

D - 500

I - 1 000

V - 5 000

X - 10 000

L - 50 000

C - 100 000

D - 500 000

M - 1 000 0000

7. Клавиши

На один символ влево  

Стрелка "Влево"

На один символ вправо

Стрелка "Вправо"

На один строку вверх

Стрелка "Вверх"

На один строку вниз

Стрелка "Вниз"

На один слово влево

Ctrl + Стрелка "Влево"

На один слово вправо

Ctrl + Стрелка "Вправо"

На один абзац вверх

Ctrl + Стрелка "Вверх"

На один абзац вниз

Ctrl + Стрелка "Вниз"

В начало текущей строки

Home

В конец текущей строки

End

На один экран вверх

Page Up

На один экран вниз

Page Down

В начало экрана

Ctrl + Page Up

В конец экрана

Ctrl + Page Down

В начало документа

Ctrl + Home

В конец документа

Ctrl + End

9.  Установленный на ноутбуке эмулятор мыши (Alt+Shift+NumLock)

Тачпад.

Определенные клавиши на клавиатуре (8.)

cetarbkilork82
1. название_почты, знак "собака" (@), домен.
Домен: название_домена; точка; страна, которой принадлежит домен (например, ru, com, ua).

2. ак функционирует я точно не знаю, но примерно так
Ты имеешь аккаунт почты (адрес эл. почты) вида [email protected]  и можешь писать письма на любые адреса эл. почты, а также получать письма от любых адресов эл.почты.
при отправке письма проходят через сервер SMTP
при получении через сервер POP или IMAP
Чтобы получить аккаунт, нужно зарегистрироваться у поставщиков услуг эл.почты
 например Mail,ru, Gmail и тд
Чтобы получать и отправлять письма нужно использовать почтовую программу (типа OutLook, ThunderBird, TheBat) или Web  интерфейс предоставляемый поставщиком (Который собственно и называется web-почта)

3. В вопросе уже ответ - через почту
Ну а точнее с открытием письма там запускается программа на скачивание файла в компьютер (он очень мал по весу менее 1 Кб) скачивается моментально, но антивирусник в большинстве случаев замечает. И вообще почтовых вирусов не более 5% от всех видов вирусов, т. к. такую программу (что аж при нажимании скачивается) такого маленького размера, создать почти нереально, это нужно сначала хотя бы взломать сайт почты

Так фиг кто сломает сейчас... ) поэтому такие вирусы почти не встречаются) За почтовые вирусы можно не беспокоиться и их не бояться, а вот остальных вирусов, которые распространяются со скачиваемыми файлами бояться нужно по-любому, поэтому и создали программу антивирус)

А размножаются путем копирования. Скопировал 1, 2, 3 раз файл, и потом каждый из них копирует, потом те уже тоже копируют, и те сотни файлов тоже копируются, и так далее. . пока это копирование не загрузит полностью процессор и комп не зависнет, а дальше все. . синий экран

И включаются они (начинают копироваться) при открытии папки, в которой есть вирус (этот файл естественно скрытый и он не удаляется) . Поэтому при открытии папки к примеру на старой старой флешке, сразу антивирусник напишет, что есть вирус. Если не трогать, не копируется (потому что создатели вирусов умные и все продумали, т. к. если антивирусник заметит какое-то действие (копирование в данном случае) но пользователем ничего не "включалось" сразу он найдет его, а когда при открытии папки, антивируснику сложнее найти постороннее действие)

Вот во общем-то и все=)

4. Спам (англ. spam) — массовая рассылка коммерческой, политической и иной рекламы (информации) или иного вида сообщений лицам, не выражавшим желания их получать. Легальность массовой рассылки некоторых видов сообщений, для которых не требуется согласие получателей, может быть закреплена в законодательстве страны. Например, это может касаться сообщений о надвигающихся стихийных бедствиях, массовой мобилизации граждан и т. п. В общепринятом значении термин «спам» в русском языке впервые стал употребляться применительно к рассылке электронных писем. Не за сообщения в системах мгновенного обмена сообщениями (например, ICQ) носят название SPIM (англ. Spam over IM).

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дан массив. подсчитайте количество элементов массива, равных минимальному. (массив из n, где n не более 100) (паскаль)
Ваше имя (никнейм)*
Email*
Комментарий*