Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


49.9%Russian Federation Russian Federation
24.5%Ukraine Ukraine
14.6%United States United States
1.9%Belarus Belarus
1.1%Romania Romania
0.8%Kazakhstan Kazakhstan
0.8%Czech Republic Czech Republic
0.7%United Kingdom United Kingdom
0.6%Republic Of Moldova Republic Of Moldova
0.6%Kuwait Kuwait

Сегодня: 46
Вчера: 315
На этой неделе: 1912
На прошлой неделе: 2232
В этом месяце: 6384
В прошлом месяце: 6131
Всего: 19365


   

Учитель информатики Бамбуркин С.П.

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Нахождение минимального (максимального) числа в массиве. Паскаль ABC

Добавлено : Дата: в разделе: Прикладная информатика

Составим программу нахождения минимального элемента в одномерном массиве В, состоящем из 20 элементов. Элементами массива являются целые числа.

const //Описание констант
Sz = 100;
var //Описание переменных
a: array [1..Sz] of real;
N: integer;
min: real;
minind: integer;
begin
N := 20;
for var i:=1 to N do //Заполнение и вывод массива
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
min := a[1]; //Поиск минимального элемента
minind := 1;
for var i:=2 to N do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
writeln('Минимальный элемент: ',min); //Вывод минимального элемента и его индекса
writeln('Индекс минимального элемента: ',minind);
end. //Конец программы
Редактировалось Дата:

Добавить комментарий


Защитный код
Обновить

   
© 2012 fordus.