arkadaslar lütfen yardım

[stunner_17]

programlama dili pascalda 1 den 50 ye kadar girilen sayıların en büyüğünü bulan algoritmayı bilenler varsa yardımcı olabilirmi

 

[YAZILIM34]

pascal'ı yıllar önce su gibi biliyordum, şimdi tam hatırlamıyorum fakat algoritma c#'da da aynı...

int EnBuyuk=0;
for (int SayiSiraNo=0;SayiSiraNo<=50;SayiSiraNo++)
{
if (Sayi[SayiSiraNo]>EnBuyuk)
EnBuyuk=Sayi[SayiSiraNo];
}

WriteLn("EnBuyuk:"+EnBuyuk.ToString());

 

[ankebut_ko]

uses crt;
var eb,say,i integer;
begin
writeln('birsayı giriniz');
readln(say);
eb:=say;
for i=1 to 49 do begin
writeln('birsayı giriniz');
readln(say);
if eb<say then eb:=say;
end;
writeln('en büyük sayı =',eb);
readln;
end.
Bu işini görüğr

 

[murtake200]

teşekkürler işime yarıcak