- Tarr Kft. kábeltv, internet, telefon
- Vizsgálják a Waymo robotautók váratlan viselkedését
- A tüntetések ellenére is bővítheti német gyárát a Tesla
- Hálózati / IP kamera
- A ChatGPT-re mennek a Reddit tartalmai
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Ubiquiti hálózati eszközök
- Opera böngésző
- Milyen routert?
- Programozásról_szubjektíven
Új hozzászólás Aktív témák
-
berkine
csendes tag
hali!
itt az átlós program. Igaz, hogy csak a főátló, de az is jobb,. mint a semmi. Remélem.
ja igen ez a*a-s mátrix de a betük nem olyan fontosak
program matrixatlo;
uses crt;
var a,i,j,k,minindex:integer;
Type Mtomb=array[1..10,1..10] of integer;
var x :Mtomb;
z:array[1..10]of integer;
begin
clrscr;
writeln('mekkora matrix?'); readln(a);
For i:= 1 to a do
for j:=1 to a do
begin
writeln('k‚rem az ',i,'. sor',j,'. elemet!');
readln(x[i,j]);
end;
for i:=1 to a do
begin
for j:=1 to a do
write(x[i,j]:10);
writeln;
end;
for i:=1 to a do
for j:=1 to a do
if i=j then
begin
z:=x[i,j];
writeln(z);
end;
minindex:=i;
for i:= 1 to a do
begin
if z < z[minindex] then minindex:=i;
end;
writeln('az atlo legkisebb eleme:', z[minindex]);
repeat
until keypressed;
end.[Szerkesztve]
Új hozzászólás Aktív témák
- iPad topik
- ThinkPad (NEM IdeaPad)
- Kerékpárosok, bringások ide!
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Tarr Kft. kábeltv, internet, telefon
- A fociról könnyedén, egy baráti társaságban
- Nikon DSLR topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Íme az Assassin's Creed Shadows első előzetese
- Huawei Watch Fit 3 - zöldalma
- További aktív témák...
- Crucial T500 PRO 2 TB M.2 NVME PCI-E 4.0 x4 - Új, Bontatlan, Hűtőbordás - 7400-7000 MBs - Eladó!
- Samsung Galaxy S21+ 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó Ipad 9. Generáció 64 GB Wifi Silver
- Apple iPhone 13 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- ASUS ROG STRIX RTX 2080 SUPER - eladó!
- MSI B75MA-P33 alaplap + i5-2310 processzor eladó. /Beszámítás/
- Lenovo S1La40
- Akció! Új! LENOVO THINKPAD UNIVERSAL USB-C DOCK
- Bomba Ár! Lenovo ThinkPad W541 - i7-4700MQ I 16GB I 128SSD I K1100 I 15,6" FHD I Cam I W10 I Gari!
- Bomba ár! Lenovo ThinkPad T430 - i7-G3 I 8GB I 240GB SSD I Nvidia I 14" HD+ I Cam I W10 I Garancia!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs