Найти минимальный элемент массива целых чисел,с помощью генератора случайных чисел. Решение в Delphi.
11
ОТВЕТЫ
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
var
mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.
procedure minZNmas;
var
mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.
5
Отв. дан
Борис
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Илья
Составьте программу ввода с клавиатуры массива целых чисел а ...
2018-09-25 00:00:00
Sira
Файл размером 60кБ передается через некоторое соединение со скоростью ...
2018-09-25 00:00:00
Nadar
При нажатии мышкой на внутреннею область квадрата происходит ошибка.Из-за ...
2018-09-25 00:00:00
Kezar
Даны координаты левой верхней и правой нижней вершин квадрата. ...
2018-09-25 00:00:00