Question

jak powinien wyglądać program w Dev Pascalu który z ciągu 8 liczb wyświetli największą z nich

Answer 1

int max=0,i=(wpisujesz jakas duza liczba w delphi wystarczylo wpisac "maxint")32000;

do (i=0;i<8;i++){

cout<<"podaj liczbe"<<endl;

cin>>i;

if (i>max)

i=max;}

cout<<"największa z liczb "<<max<<endl;

Answer 2

z ciągu wprowadzonych:

program licz;

var i: integer;
tmp : integer;
act : integer;
begin
//pobieramy 8 liczb
for i:= 1 to 8 do
begin
read(tmp);
if (i = 0) then act := tmp
else
begin
if (tmp > act) then
act := tmp;
end;
end;
writeln('największa to: ', act);
end.