Na vstupe je postupnosť 20 náhodných celých čísel uložených v poli

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Uchaľe

Zrobil: Danciwo
Program: Pole3.pas
Subor exe: Pole3.exe

Na vstupe je postupnosť 20 náhodných celých čísel uložených v poli. Program nájde minimum a maximum a ich indexi v poli.
{ POLE3.PAS                                   Copyright (c) Danciwo }
{ Na vstupe je postupnost 20 celych cisel ulozenych v poli A(N).    }
{ Napiste program pre vyhladanie minima a maxima a ich indexov      }
{ v tomto poli.                                                     }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }
 
program pole3;
uses crt;
var A: array [1..20] of integer;
    i, max, min: integer;
    poz_max: integer;
    poz_min: integer;
 
begin
 randomize;
 for i:=1 to 20 do begin
    A[i]:=random(250);
   end;
 
 min:=250;
 for i:=1 to 20 do begin
    if A[i]<min then begin
		min:=A[i];
		poz_min:=i;
		end;
    end;
 
 max:=0;
 for i:=1 to 20 do begin
    if max<A[i] then  begin
		max:=A[i];
                poz_max:=i;
    end;
 end;
 
 writeln('minimalna hodnota je: ',min, 'pozícia: ',poz_min);
 writeln('maximalna hodnota je: ',max, 'pozícia: ',poz_max);
 readln;
end.