Legfrissebb anyagok
IT café témák
- Milyen NAS-t vegyek?
- Milyen routert?
- Windows 11
- Otthoni hálózat és internet megosztás
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Excel topic
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- DIGI internet
- Hálózati / IP kamera
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
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
Új prémium hirdetések
- iPad Pro 11 WiFi 128GB M1 (3rd gen. 2021) + Apple Pencil 2
- GAMER PC - NZXT - RTX 3060Ti 8GB - i7 7700 - 32GB DDR4 - 500GB M.2 Nvme SSD - 1TB HDD
- BONTATLAN Új Iphone 15 PRO 128-512GB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- ÚJ Bontatlan Macbook Pro 16 M3 Pro MAX 14 30GPU 96GB 2TB Magyar billentyűzet Azonnal átvehető.
- 5% kedvezmény a Cammus szimulátor termékeihez.