Dobrý den,
poradil mi někdo, jak v Pascalu zapsat následující?
,,Budeme-li mít zadáno N čísel, vypiště (vytikněte) to číslo, které má nejvyšší absolutní hodnotu."
Díky za pomoc.
2x
Ok, máš N čísel (v souboru, případně je zadáváš)
načteš první, určíš jeho absolutní hodnotu a prohlásíš ho za nejvyšší
v cyklu ho budeš porovnýávat s dalšími hodnotami
pokud bude absolutní hodnota některého čísla vyšší než je současná nejvyšší, prohlásíš ji za nejvyšší (uložíš do patřičné proměnné)
na konci budeš mít v dané proměnné nejvyšší absolutní hodnotu
0x
Prvně načteš do nějaké proměnné první číslo a určíš jeho absolutní hodnotu, kterou uložíš do proměnné (klidné té stejné). Další čísla (jejich absolutní hodnoty) s ním budeš v cyklu porovnávat /znáš-li N, tak ve for-cyklu/. Pokud bude vyšší přepíšeš zatím nalezenou nejvyšší absolutní hodnotou a s tou budeš porovnávat zbytek. Na konci budeš mít uloženou nejvyšší absolutní hodnotu.
Rozumíš? Nebo ne?
Kde je chyba, prosím?
uses Crt;
const pocet_cisel=10;
var cisla:=array[1.. pocet_cisel] of integer;
i:integer;
max:integer;
begin (main)
ClrScr;
writeln(Zadej ,pocet_cisel, cisel: )
for i:=1 to pocet_cisel do
begin
readln(cisla[i]);
end;
max:=abs(cisla[1]);
for i:=2 to pocet_cisel do
begin
if abs(cisla[i])>max
then max:=abs(cisla[i]);
end;
writeln(Nejvyssi cislo je: ,max);
end.
Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.