clc,clear all
n=input('bir sayı giriniz'); %tamsayi tipte olsun
m=zeros(n,n); %gercel sayi tipte 2 boyutlu dizi olsun
sayi=m(1,1);
for a=1:n
for b=1:n
m(a,b)=a*b/(a+b);
if sayi>m(a,b)
sayi=m(a,b);
end
end
end
'--------'
sayi




Arkadaşlar VB'de yazamıyorum bu kodu yardımcı olursanız sevinirim
__________________