Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
Keresés
Aktív témák
-
skera
tag
Minimum és maximum kiszámoló függvények
const N=5000;
{Minimum; bemenet egy tomb}
function min(var be: Array [0..N-1] of Integer)
var i,minszam: Integer;
begin
minszam:=N;
for i:=1 to N do
begin
if minszam < be then
begin
minszam:=be;
end;
end;
return minszam;
end;
{Maximum; bemenet egy tomb}
function max(var be: Array [0..N-1] of Integer)
var i,maxszam: Integer;
begin
maxszam:=0;
for i:=1 to N do
begin
if maxszam > be then
begin
maxszam:=be;
end;
end;
return maxszam;
end;
NEM GARANTÁLOM, HOGY JÓ. LEHET, SŐT BIZTOS, HOGY VAN BENNE HIBA!!!!
Főleg a :=-vel vagyok mindig gondba, hiszen régen pascaloztam már. Remélem hasznát veszed valamennyire...import szte.ttk.ptm.*;
Aktív témák
Aktív témák
- Láncfűrész topik
- Politika
- Modern monitorokra köthető 3dfx Voodoo kártya a fészerből
- sziku69: Szólánc.
- E-Book Off topic
- Stellar Blade
- Kerékpárosok, bringások ide!
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Xiaomi AX3600 WiFi 6 AIoT Router
- gban: Ingyen kellene, de tegnapra
- További aktív témák...
Új prémium hirdetések
- HP ProBook 430 G6, 13,3" FULL HD IPS, I5-8265U, 8GB DDR4, 256GB SSD, WIN 10/11, SZÁMLA, GARANCIA
- Dell Latitude 3420, 14" FULL HD IPS, I5-1145G7 CPU, 8GB DDR4, 256GB SSD, W11, Számla, Garancia
- Dell Latitude 7280, 12,5" FHD IPS Kijelző, I5-6300U, 8GB DDR4, 256GB SSD, WIN 10, Számla, garancia
- Lenovo ThinkPad X280, 12,5" HD Kijelző, I5-8250U CPU, 8GB DDR4, 256GB SSD, WIN 10/11, Számla, Garanc
- Lenovo ThinkPad L490, 14" FHD IPS Kijelző, I5-8265U CPU, 8GB DDR4, 256GB SSD, WIN 10/11, Számla, Gar