Всего на сайте:
210 тыс. 306 статей

Главная | Информатика

Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.  Просмотрен 7678

  1. Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.
  2. Задачи для самостоятельной работы
  3. В двумерном массиве, состоящем из целых чисел, найти наименьший элемент и номер строки, в которой он находится. Элементы вводятся с клавиатуры. Размер MXN.
  4. Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.
  5. Задачи для самостоятельной работы
  6. Методика вивчення теми «Текстовий редактор». Системи опрацювання текстів, їх класифікація, призначення й основні функції.
  7. Основные принципы разработки алгоритмов.
  8. ЗАКЛЮЧЕНИЕ, В ходе этого дипломного проекта я научился создавать компьютерные прог..
  9. Диаграммы, Диаграммы формируются мастером диаграмм. Рассмотрим пример. 1. ..
  10. ЛІТЕРАТУРА. 1. Партыка Т. Л., Попов И. И. Периферийные устройства вычислительной ..
  11. II. ИНФОРМАЦИОННАЯ СФЕРА КАК ОБЪЕКТ ПРАВОВОГО РЕГУЛИРОВАНИЯ
  12. Технологический процесс обработки и защиты данных.

 

Program minim;

Var a: array[1..100] of real;

i, n: integer;

min: real;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

end;

min:=a[1];

For i:=2 to n do

If a[i]< min then min:=a[i];

Writeln(‘наименьшее число: ‘,min);

End.

 

9. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный.

 

Program numberminim;

Var a: array[1..100] of integer;

i, n, num, min: integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

a[i]:= Random(46)-20;

writeln (a[i]);

end;

min:=a[1];

num:=1;

For i:=2 to n do

If a[i]< min then

begin

min:=a[i];

num:=i;

end;

Writeln(‘ номер наименьшего элемента: ‘,num);

End.

 

В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество нулей.

 

Program kolv0;

Var a: array[1..100] of integer;

i, n, k: integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

Write(‘a[‘,i,’]=’); readln (a[i]);

if a[i]=0 then k:=k+1;

end;

Writeln(‘количество 0 равно ’, k);

end.

 

В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество четных элементов.

 

Program kolvсchet;

Var a: array[1..100] of integer;

i, n, k: integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

Write(‘a[‘,i,’]=’); readln (a[i]);

if a[i] mod 2=0 then k:=k+1;

end;

Writeln(‘количество четных элементов: ’, k);

end.

 

Предыдущая статья:Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры. Следующая статья:Задачи для самостоятельной работы
page speed (0.0264 sec, direct)