На каком сайте можно узнать инфу через провайдера?

1.
const n=11;
var a:array[1..n] of integer;
max,imax,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(101);
 write(a[i],' ');
 end;
writeln;
max:=a[1]; imax:=1;
for i:=2 to n do
 if a[i]>max then begin max:=a[i]; imax:=i; end;
writeln('max = ',max,'  imax = ',imax);
end.

Пример:
67 3 11 65 72 82 18 42 8 74 40 
max = 82  imax = 6

2.
const n=11;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51)+20;
 write(a[i]:3);
 end;
writeln;
min:=a[1];
for i:=2 to n do
 if a[i]<min then min:=a[i];
writeln('min = ',min);
for i:=1 to n do
 write(a[i]-min:3);
writeln;
end.

Пример:
 63 25 39 25 44 21 65 55 66 47 42
min = 21
 42  4 18  4 23  0 44 34 45 26 21

3.
const n=15;
var a:array[1..n] of integer;
s,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(11)+2;
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then s:=s+a[i];
writeln('s = ',s);
end.

Пример:
  2  3  5  9  3 12  5 10  3  2  3 10  8  8  3
s = 52

4.
const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51)-25;
 write(a[i]:4);
 end;
writeln;
max:=-10000;
for i:=1 to n do
 if (a[i]<0)and(a[i]>max) then max:=a[i];
writeln('max = ',max);
end.

Пример:
   1   1 -22  21 -25  17 -11 -13   9  16
max = -11

Сумма натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма цифр, которых не превышает 7. Можно перебором} var i,s:integer; begin s:=0; for i:=1 to 100 do if (i mod 17=0) and (i div 10 + i mod 10<7) then s:=s+i; writeln(s); end. {результат 51} { Можно оптимизировать в цикле изменив for i:=1 to 100 do на for i:=17 to 100 do} {2 вариантө оптимальнее - перебираем только числа кратные 17] var i,s:integer; begin s:=0; i:=17; while i<=100 do begin if (i div 10 + i mod 10<7) then s:=s+i; i:=i+17; end; writeln(s); end.