random

[Ya_Aston]

Написал программу а она чтото не фурычит. ошибок нет просто не дает никакого результата

Задание:
Дано натуральное число n, действительные числа a1,...,an. Получить min(a1,a2,...,an)

PHP код:

program ss;
var 
 min:real;
 a:array [1..10] of integer;
 i,n:integer;
begin
min:=32767;
for i:=1 to n do 
 begin
 a[I]:=random(10);
 if a[i]<min then min:=a[i];
 writeln (a[i]:6:3);
 end;
end. 


[Mad_Cat]

перед end.

readln;

вставь
и n значение присвой какое нить!

program ss;
var
 min:real;
 a:array [1..10] of integer;
 i,n:integer;
begin
randomize;
writeln('n=');
readln(n);
min:=32767;
for i:=1 to n do
 begin
 a[I]:=random(10);
 if a[i]<min then min:=a[i];
 writeln (a[i]:6);
 end;
 writeln('min=',min);
 readln;
end.

Далее,минимальный элемент находится не так

он как только не находится и так тоже)

[Prime123]

Естественно она не будет работать
Формирование массива нужно вынести в отдельный цикл,и n нужно присвоить значение,10 например

program ss; 
var  
 min:real; 
 a:array [1..10] of integer; 
 i,n:integer; 
begin
n:=10;
for i:=1 to n do
begin
a[I]:=random(10);
end;

Далее,минимальный элемент находится не так,переменной min нужно присвоить первый элемент массива,цикл начнём со второго элемента

min:=a[i];
for i:=2 to n do  
 begin  
 if a[i]<min then min:=a[i];  
 end;
 writeln (min:6:3); 
end.

[andrewpalkin]

а можно еще немного пояснить условие ?

[Ya_Aston]

mad_cat
в вашей программе при выводе min всегда =0
Prime123
а в вашей программе ответ тупо равен 0

[Mad_Cat]

mad_cat
в вашей программе при выводе min всегда =0

значит в вашем массиве всегда есть 0) вместо a[i]:=random(10); напишите например a[i]:=random(120);
результат

n=
6
8
6
8
2
1
3
min=1

[Ya_Aston]

спасибо! ЫЫ