Uses crt; var i,j,k,n,max:integer; a:array[1..100] of integer; procedure rmassr; begin for i:=1 to n do a[i]:=random(10); end; procedure rmassy; begin for i:=1 to n do readln(a[i]); end; procedure maxe; begin max:=a[1]; for i:=2 to n do begin if a[i] > max then max:=a[i]; end; writeln('max element = ', max); end; procedure wmass; begin for i:=1 to n do write(a[i],' '); writeln; end; begin clrscr; randomize; write('Длина массива'); readln(n); write('1-random; 2- в ручную '); readln(k); if k=1 then rmassr() else rmassy(); wmass(); maxe(); readln end.
Вообще то, это задача чисто математическая. Пусть есть трехзначное число abc. По условию:
abc + abc
bca Понятно, что максимальным число будет, если сложение в двух младших разрядах идет через перенос -> получим систему уравнений: 2c = a +16 2b +1 = c + 16 2a + 1 = b равносильная ей система 2с = a + 16 c = 2b - 15 b = 2a + 1 подставляем третье во второе, получаем первые два уравнения 2с = a + 16 c = 4a - 13 из этих двух уравнений -> 7a = 42 -> a = 6 -> из третьего уравнения b = 13 13 = D(16), из первого уравнения с = 22/2 = 11(10) = B(16) -> abc(16) = 6DB(16) = 1755(10), DB6(16) = 3510(10) -> 2abc = bca
{
var times = [];
times.push("8.30");
times.push("9.10");
times.push("10.20");
times.push("11.35");
times.push("12.25");
times.push("13.15");
switch (lesson)
{
case 1: return times[0];
case 2: return times[1];
case 3: return times[2];
case 4: return times[3];
case 5: return times[4];
case 6: return times[5];
default: return "Нет урока.";
}
}