//fpe 1.0.0 program World; var mas:array[1..15] of integer; i,men:integer; begin...

Question

//fpe 1.0.0
program World;
var
mas:array[1..15] of integer;
i,men:integer;
begin
randomize();
for i:=0 to 15 do begin
mas [i]:=random(50)+5;
write(mas[i]:3);
and;
men:=mas[i];
while i:=2 to 15 do
if mas[i]< men then men:= mas[i];
writein('min=',men);
and;


в чем ошибка ?

Answer 1

Program for15; var  i, N: integer;  A, Pow: real; begin  write('A = ');  read(A);   write('N = ');  read(N);  Pow := 1;  for i := 1 to N do Pow := Pow * A;  write(Pow:1:2)end. может это?

Comments

Нет (