Ошибка в поиске минимального элемента массива

@Rezzident · Регистрация: 10.11.2015

Pascal

program minmas;
uses crt; 
const a=30;
var
arr:array[1..a] of integer;
i,min,n:integer;
begin
clrscr;
randomize;
min:=1;
writeln('Введите элемент массива');
readln(n);
begin
arr:=random(1+n);
write(arr,'');
if (arr<arr[min])then
write(arr[min]);
end;
end.

В чем ошибка не пойму.Помогите

@Puporev · 26.11.2015, 19:12

Сообщение от Rezzident

В чем ошибка не пойму.

Бросай пить и курить всякую дрянь..

@ZX Spectrum-128 · 26.11.2015, 19:28

Pascal

program minmas;
 
uses
  crt;
 
const
  n = 30;
 
var
  arr: array[1..n] of integer;
  i, min: integer;
 
begin
  clrscr;
  randomize;
  min := 1;
  for i := 1 to n do
  begin
    arr[i] := random(1 + n);
    write(arr[i]:4);
    if arr[i] < arr[min] then
      arr[min] := arr[i];
  end;
  writeln;
  writeln('Min: ', arr[min]:4);  
end.

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	26.11.2015, 19:12	2
	Сообщение от Rezzident В чем ошибка не пойму. Бросай пить и курить всякую дрянь.. 0

Опции темы