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.
101110101 = 373 10111 = 23 Здесь тот же принцип, что и с обычными цифрами. Нужно записать в столбик эти числа и произвести с ними действия (в данном случае сложение и вычитание). Чтобы сложить или вычесть из одного числа другое, нужно недостающие цифры заполнить нулями. Т.к. первое число состоит из 9 цифр, а второе из 5 цифр, то ко второму числу слева приписываем 4 нуля. Теперь можно вычитать и складывать:
101110101 - 000010111 = 101011110 = 350
При этом нужно запомнить, если у числа занимаем, то занимаем 2, а не 1. Например, 110 - 001. От нуля же нельзя вычесть 1, значит нужно занять у соседней единицы. У себя на черновике получаем: 102 - 001, затем вычитаем и получаем результат равный 101 = 5.
Отвлекся. Осталось сложить.
101110101 + 000010111 = 110001100
Тоже нужно запомнить: при сложении, если складываются 1 и 1, то записываем 0 и запоминаем 1. Например, возьмем числа: 101 + 011 = 1000. При сложении последних получаем 0 и 1 в уме, затем 1+0 и еще +1 в уме получаем 0 и 1 снова в уме, затем 0+1 и еще +1 в уме получаем 0 и 1 в уме, который складывается с нулем (т.к. говорилось выше, что если не хватает чисел, то добавляем нули). Вот и все.
количество информации составляеет тому что надо узнать номера вагонов и встречать при выходе из седьмого вагона =)