2. Найти наименьший элемент массива случайных чисел
180
ОТВЕТЫ
Задачка, конечно, простейшая, но и на ней можно проследить состояние изучения программирования в наших школах.
{ 1. Borland (Turbo) Pascal 7.0, 1994г., статический массив }
uses Crt;
const
nn=1000;
var
i,n,mn:integer;
a:array[1..nn] of integer;
begin
Randomize;
ClrScr;
Write(n=); Read(n);
mn:=1000;
for i:=1 to n do begin
a[i]:=Random(199)-99;
Write(a[i], );
if a[i]lt;mn then mn:=a[i]
end;
Writeln;
Writeln(Наим. элемент ,mn);
ReadKey
end.
Выполнение приведено во вложении 1.
// 2. Free Pascal 3.0.0, 2015г., динамический массив
uses Crt;
var
i,n,mn:integer;
a:array of integer;
begin
Randomize;
ClrScr;
Write(n=); Read(n);
SetLength(a,n);
mn:=1000;
for i:=0 to n-1 do begin
a[i]:=Random(199)-99;
Write(a[i], );
if a[i]lt;mn then mn:=a[i]
end;
Writeln;
Writeln(Наим. элемент ,mn);
ReadKey
end.
Выполнение приведено во вложении 2
// 3. PascalABC.NET 3.2, 2016г., современное решение
begin
var a:=ArrRandom(ReadInteger(n=),-99,99);
a.Println;
Writeln(Наим. элемент ,a.Min)
end.
Выполнение приведено во вложении 3.
Сделать выводы каждый может сам...
Примечание: все решения сделаны в среде PascalABC.NET 3.2, который для уровня школьных задач можно считать совместимым на уровне исходного текста с вышеприведенными версиями паскалей.
{ 1. Borland (Turbo) Pascal 7.0, 1994г., статический массив }
uses Crt;
const
nn=1000;
var
i,n,mn:integer;
a:array[1..nn] of integer;
begin
Randomize;
ClrScr;
Write(n=); Read(n);
mn:=1000;
for i:=1 to n do begin
a[i]:=Random(199)-99;
Write(a[i], );
if a[i]lt;mn then mn:=a[i]
end;
Writeln;
Writeln(Наим. элемент ,mn);
ReadKey
end.
Выполнение приведено во вложении 1.
// 2. Free Pascal 3.0.0, 2015г., динамический массив
uses Crt;
var
i,n,mn:integer;
a:array of integer;
begin
Randomize;
ClrScr;
Write(n=); Read(n);
SetLength(a,n);
mn:=1000;
for i:=0 to n-1 do begin
a[i]:=Random(199)-99;
Write(a[i], );
if a[i]lt;mn then mn:=a[i]
end;
Writeln;
Writeln(Наим. элемент ,mn);
ReadKey
end.
Выполнение приведено во вложении 2
// 3. PascalABC.NET 3.2, 2016г., современное решение
begin
var a:=ArrRandom(ReadInteger(n=),-99,99);
a.Println;
Writeln(Наим. элемент ,a.Min)
end.
Выполнение приведено во вложении 3.
Сделать выводы каждый может сам...
Примечание: все решения сделаны в среде PascalABC.NET 3.2, который для уровня школьных задач можно считать совместимым на уровне исходного текста с вышеприведенными версиями паскалей.
Var i,min:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
write(a[i], );
end;
writeln;
min:=a[1];
for i:=2 to 10 do
if a[i]lt;min then min:=a[i];
writeln(min);
end.
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
write(a[i], );
end;
writeln;
min:=a[1];
for i:=2 to 10 do
if a[i]lt;min then min:=a[i];
writeln(min);
end.
241
Отв. дан
Ariugas
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Mokelv
3. Вычислить сумму цифр произвольного целого числа. ...
2019-05-24 05:38:47
Анатольевич
Чему в десятичной системе счисления равно число 1110012? ...
2019-05-24 05:35:40
Сила
Выбери из данных слов пару объектов,которые имеют общее свойство: ...
2019-05-24 05:31:51
Vonarnugb
В программе ":=" обозначает оператор присваивания, знаки "+", "-", ...
2019-05-24 05:30:21