Pascal legnagyobb szám kikeresése?
Azt kéne, hogy bekér 5 számot for ciklussal majd az összes számot összeadja ezt kiírja és majd kiírja azok átlagát..ezután a lényeg, hogy az 5 számközül kiírja, hogy melyik a legnagyobb...? Hogy kellene?
Az átlag számításig megvan, de a maximummal sehogy se boldogulok(tudom, hogy tömbbel kéne ..de az nem megy)
program maximum;
var
a,b,c,:integer;
Begin
c:=0;
for a:= 1 to 5 do
begin
write('Írj be 5 számot:');
readln(b);
c:=c+b;
end;
writeln('A számok össze: ' ,c);
writeln('A számok átlaga: ' ,c/a);
End.
válasza:Ma milyen rendes vagyok, már egy csomó házi feladatot megírtam itt a GYK-n...
program maximum;
var
szamok: array [1..5] of integer;
osszeg: integer;
max: integer;
i: integer;
begin
osszeg:=0;
writeln('Kerek 5 szamot:');
for i:=1 to 5 do
begin
write(i,'. szam: ');
readln(szamok[i]);
osszeg:=osszeg+szamok[i];
end;
writeln();
writeln('A szamok osszege: ',osszeg);
writeln('A szamok atlaga: ',osszeg/5:5:2);
max:=1;
for i:=2 to 5 do
if szamok[i] > szamok[max] then max:=i;
writeln('A legnagyobb szam: ',szamok[max]);
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!