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

193

466

Посмотреть ответы 1

Ответы на вопрос:

cat504

Информатика

4,5(69 оценок)

Var a: array [1..30,1..30] of integer; i,j,n,m,b: integer; find: boolean; begin randomize; writeln('введите размерность матрицы '); readln(n,m); writeln('введите число b '); readln(b); find: =false; for i: =1 to n do for j: =1 to m do begin a[i,j]: =-110+random(200); if a[i,j]=b then begin writeln('элемент в массиве ',a[i,j]: 5, ' =',b: 5); find: =true; exit; {остальные эл-ты не рассм.} end end; if find=false then writeln('элемент не найден'); end. {2 способ} var a: array [1..30,1..30] of integer; i,j,n,m,b: integer; find: boolean; begin randomize; writeln('введите размерность матрицы '); readln(n,m); writeln('введите число b '); readln(b); find: =false; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =-110+random(200); write (a[i,j]: 7); end; writeln; end; for i: =1 to n do for j: =1 to m do if a[i,j]=b then begin writeln('элемент в массиве ',a[i,j]: 5, ' =',b: 5); find: =true; exit; {остальные эл-ты не рассм.} end; if find=false then writeln('элемент не найден'); end.