Trisdesimt

Tu nenuskaitai tos n reikšmės, atidaręs failą skaitymui turi parašyti Readln(n); kad n turėtų kažkokią reikšmę, o tik poto su ja dirbti.

program Noname0; var mas : array [1..6] of real; max : real; kelintas, i : integer; begin WriteLn('Iveskite masyvo narius'); for i := 1 to 6 do begin readln(mas[i]); if mas[i] > max then begin max := mas[i]; kelintas := i; end; end; WriteLn('Max: ', max:0:0, ' ', 'Kelintas: ', kelintas); Readln; end.
 
A dalis

Suki for cikla nuo 1000 iki 9999 , o jame idedi cikla while, kuriame imi skaiciaus paskutini skaitmeni ir sumuoji.

čia java kalba, paskalyje "/" atitinka div, o "%" - mod.

for (int i=1000;i<10000;i++) { int number = i; int sum = 0; while (number > 0) { int current = number % 10; sum = sum + current; number = number / 10; } if ((sum % 7) == 0) { System.out.println(i); } }