Каким осуществляется ввод элементов массиваwrite('Введите количество элементов в массиве'); readln(n); for i:=1 to n do begin writeln('Введите элементы массива’); read(a[i]); writeln('a[',i,']=)',a[i]); end;
1. с датчика случайных чисел
2. с клавиатуры
3. присвоением заданных значений
Каким осуществляется ввод элементов массива randomize; writeln('Введите количество элементов массива'); readln(n); for i:=1 to n do begin a[i]:=random(50); writeln('a['i']=)',a[i]); end;
1. с датчика случайных чисел
2. с клавиатуры
3. присвоением заданных значений

ответ:

современное социально- и научно-технологическое развитие характеризуется процессами , интеграции государств, быстрым перемещением продукции, услуг, людей, капиталов и идей. происходит переход к шестому технологическому укладу. принимая во внимание, что технологический уклад представляет собой освоенные прорывные технологии, инновации, изобретения, определяющими факторами развития становятся научно-технический прогресс, когнитивная и креативная человеческая составляющая технологических процессов и интеллектуализация основных факторов производства. , основанная на знаниях, в которой знания обогащают все отрасли, все секторы и всех участников процессов. главный эффект , основанной на знаниях, заключается не столько в выпуске высокотехнологичной продукции, сколько в ее использовании во всех отраслях и сферах. главное в , основанной на знаниях, не столько создать новое знание, сколько продуктивно его использовать. стратегия инновационного развития страны опирается на реализацию человеческого потенциала, на более эффективное применение знаний и умений людей для постоянного улучшения технологий, результатов и жизни общества в целом. переход на инновационный путь развития связан прежде всего с инвестициями в человеческий капитал. объектами инновационного менеджмента являются инновации продукта, процесса и стратегии. развиваются приоритетные сегменты в поисках дополнительных источников повышения прибыльности компании: от финансами, отношениями с клиентами до качеством и знаниями. все чаще конкурентные преимущества компаний заключаются в творческом потенциале сотрудников. в статье рассмотрены актуальные аспекты развития , основанной на знаниях, организационно- инновации, связь генерации инноваций с эффективным знаниями организации, а также вопросы формирования инноваторов лидеров перемен в инновационной .

киберленинка:

1)uses crt;
const n=17;//число элементов в массиве
var f:array[1..n] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;//чтобы не возникало ошибок, на всякий случай все обнулим
for i:=1 to n do
begin
f[i]:=random(100)-50;//к примеру, взяла интервал от -50 до 50
//всего получилось 100 чисел, минимальное -50
writeln(f[i]);
if f[i]>0 then
begin
s:=s+f[i];
inc(k)//собираем сумму положительных элементов массива
//и находим их количество, прибавляя к переменной к единицу
end;
end;
writeln;//протсо сделаем пробел между массивом и результатами, чтобы не получилась каша
writeln(s);
writeln(k);
end.
2)uses crt;
const n=5;
var l:array[1..n,1..n] of integer;
i,j,max,k,t,m,i1,j1:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
l[i,j]:=random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(l[i,j]:4);//это означает, что на запись элемента массива отводится 4 места
writeln;
end;//таким я вывела на экран двумерный массив в форме матрицы
writeln;
max:=-50;//чтобы найти максимальный элемент, нужно сначала приравнять его к минимально возможному значению
//так как побочная диагональ располагается для строк: от 1 до 4,а для столбцов - от 1 до 4 (сама побочная диагональ нас не интересует), то заведем еще переменные t и  m
t:=1;
m:=4;
//теперь найдем минимальный элемент выше побочной диагонали
repeat
for i:=t to t do
for j:=1 to m do
if l[i,j]>max then
begin
max:=l[i,j];
i1:=i;
j1:=j;//мы нашли максимальный элемент и запомнили его положение
end;
inc(t);
m:=m-1;
until t=5;
l[2,2]:=l[2,2]+l[i1,j1];
l[i1,j1]:=l[2,2]-l[i1,j1];
l[2,2]:=l[2,2]-l[i1,j1];// поменяли их местами
for i:=1 to n do
begin
for j:=1 to n do
write(l[i,j]:4);
writeln;
end;//опять выводим матрицу на экран
writeln;
end.