Как называется уровень модели osi, который является первым уровнем, работающим в режиме коммутации пакетов? одной из его основных является обноружение и коорекция ошибок и проверка допустимости
Одно из трех: 1) Задача проще чем кажется, поэтому не нужно ничего усложнять. Достаточно просто все записать в соответствии в таблицу и отсортировать по столбцу "Скорость" при фильтров. Что я и сделал (см. файл Excel лист "Предтеч просто") 2) В задаче НЕ достаточно условий, т.к. мне стало не ясно зачем тут 4-ре исследователя!? Я пытался их приплести к условию задачи (Лист: "Предтеч - сложно"), Но мне кажется получился бред. 3) Возможно я чего-то не понял из всего информационного хаоса царившего в данной задаче, но как решать её по другому я не знаю.
Var a: array[1..100] of integer; n, i: byte; sum, p: integer; begin writeln('1. Случайным образом'); Randomize; write('Введите размер массива: '); readln(n); sum:=0; p:=1; for i:=1 to n do begin a[i]:=Random(101)-50; write(a[i]:4); sum:=sum+a[i]; p:=p*a[i]; end; writeln; writeln('Сумма = ', sum:5); writeln('Произведение = ', p:5); sum:=0; p:=1; writeln(''); writeln('2. С клавиатуры'); for i:=1 to n do begin write('Элемент ', i, ' = '); readln(a[i]); sum:=sum+a[i]; p:=p*a[i]; end; writeln('Сумма = ', sum:5); writeln('Произведение = ', p:5); end.
