Wpis z mikrobloga

Siema pomoże ktoś z programem na informatykę? Mam napisać do znajdowania maksimum z n liczb i zdefiniować funkcję MaxN ( ͡° ͜ʖ ͡°) Jak na razie mam takie coś


uses crt;


n,i,liczba,max:integer;


begin


writeln('podaj dlugosc ciagu n=');


readln(n);


writeln('podaj',n,'liczb');


read(max);


for i:=2 to n do


begin


read('liczba');


if max!
end;


writeln(maksymalny element wynosi', max)


end.


Jak by się znalazł jakiś dobry mireczek który by mi pomógł byłbym wdzięczny ( ͡° ͜ʖ ͡°)( ͡° ͜ʖ ͡°)

#programowanie #pascal
  • 7
  • Odpowiedz