1)Материальные ресурсы – чаще всего сырье, ресурсы, материалы, которые человек обрабатывает для своих потребностей. Практически все материальные ресурсы одноразовые. Выплавив из руды металл – повторно использовать ту же руду не получится.
Информационные ресурсы – документы (книги , стать , публикации и т.д) , которые находятся в информационных системах (библиотеках, архивах, банках данных и т.п.). Другими словами это информация, хранящаяся на каком-то доступном носителе.
Основное отличие информационных ресурсов от материальных – это многократное их использование и копирование. Книга не уничтожится после прочтения и её можно скопировать. Таких действий совершить с материальными ресурсами не получится.
2) основные виды национальных информационных ресурсов:
· Библиотечные ресурсы
· Архивные ресурсы
· Научно-техническая информация
· Правовая информация
· Информация государственных (властных) структур
· Отраслевая информация
· Финансовая и экономическая информация
· Информация о природных ресурсах
· Информация предприятий и учреждений
3) Здесь каждый сам может ответить, но если ничего не приходит в голову,то каждый чуловек точно пользовался следующими видами:
· Библиотечными ресурсами – каждый хотя бы раз заходил в библиотеку за книгой.
· Научно-техническая информация – сюда же можно отнести инструкции для каких-либо приборов и их починки.
· Правовая информация – думаю конституцию и законы все хотя бы немного читали.
· Информация предприятий и учереждений .
uses crt; var a: array [1..20, 1..20] of real; i, j, k, n, s: integer; begin clrscr; write('Введите размер матрицы: '); read(n); for i := 1 to n do for j := 1 to n do begin write('A[', i, ',', j, ']= '); readln(a[i, j]); end; WRITELN; WRITELN; writeln('Исходная матрица ', n, 'x', n, ': '); for i := 1 to n do begin for j := 1 to n do WRITE(a[i, j]:2:0, ' '); WRITELN; end; k := 0; for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then begin k := k + 1; s := s + 1; end; end; if k = n then writeln(i, ' строка состоит из нулей! '); k := 0; end; if s = 0 then writeln('В матрице нет нулевых строк'); end.
//
Объяснение:
d