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.
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.
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 до 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.
Посмотри на их официальном сайте драйвера скачай и попробуй установить если автоматически не получится попробуй вручную установить