const n = 20; var a : array [1..n] of integer; pos, sum, znak : integer; begin write('массив: '); randomize; for pos : = 1 to n do begin a[pos] : = random(101) - 50; write(a[pos]: 4); end; writeln; for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos]; writeln('разность между суммой 1-й половины и 2-й = ', sum); end.
Не думал что найдется такой провокационный вопрос когда-нибудь, по факту, определений у понятия информация тысячи и каждое верно в какой то мере, все что могу сказать так это то что информацию можно трактовать начиная от - сведения, данные нужные и понимаемые( всеми свойствами информации(полнота, достоверность, понятность и а заканчивая тем что наличие информации уменьшает степень неопределенности об объекте, и каким определением нужно пользоваться из тысячи в данном конкретном примере нужно спросить именно у того кто дал это
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив из четного числа элементов. поменять местами его половины
const n = 20; var a : array [1..n] of integer; pos, sum, znak : integer; begin write('массив: '); randomize; for pos : = 1 to n do begin a[pos] : = random(101) - 50; write(a[pos]: 4); end; writeln; for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos]; writeln('разность между суммой 1-й половины и 2-й = ', sum); end.