RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 15.05.2016, 09:12 Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, amelya.kuro! Вот программа, а блок-схема в прикреплённом файле: Код (Pascal) :: выделить код program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n = 5;
m = 10;
var
a: array [1..n] of integer;
b: array [1..m] of integer;
min, i, j: integer;
begin
randomize;
{Создаём массив А(5)}
for i:= 1 to n do
begin
a[i]:= random(50);
write(a[i]:3);
end;
writeln;
{Находим минимальный элемент массива А(5)}
min:= a[1];
j:= 1;
for i:= 2 to n do
begin
if min > a[i] then
begin
min:= a[i];
j:= i;
end;
end;
{выводим минимальный элемент массива}
write(min:3);
{выводим номер минимального элемента массива}
write(j:3);
writeln;
{Создаём массив В(10)}
for i:= 1 to m do
begin
b[i]:= random(50);
write(b[i]:3);
end;
writeln;
{Находим минимальный элемент массива В(10)}
min:= b[1];
j:= 1;
for i:= 2 to m do
begin
if min > b[i] then
begin
min:= b[i];
j:= i;
end;
end;
{выводим минимальный элемент массива}
write(min:3);
{выводим номер минимального элемента массива}
write(j:3);
sleep(10000);
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
