Составить кроссворд на темы * информационные ресурсы* и * информационное общество* 25 слов

Решение на паскаль.
начало решения задач одинаковое, а дальше см. внизу

program xxx;
var b: array [1..6, 1..6] of integer;
 i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
 b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end;

задание 1.
s:=0;
for i:= 1 to 6  do
  if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.

задание 2.
i:=2;
while i<=6 do begin
  for j:= 1 to 6 do
    if b[i,j]<0 then b[i,j]:=0;
  i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end
end.

Сохранение текстовой информации страницы
1. Выделите фрагмент текста, который хотите сохранить.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст
попадет в буфер обмена.
3. Откройте любой текстовый редактор, например Word, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.
Что дальше делать с файлом, решайте сами.

Сохранение картинки
Щелкните правой кнопкой мыши по понравившейся картинке. В открывшемся контекстном меню выберите строку Сохранить рисунок как. Далее - как всегда: указываете имя файла и выбираете папку, в которой следует сохранить файл с изображением.

Сохранение всей страницы целиком
1. Выполните команду Файл - Сохранить как файл.
2. В открывшемся окне в поле Тип файла выберите вариант, например HTML-файл с изображениями или веб-страница полностью.



 

3. Как всегда, задайте имя файла и выберите папку, в которой она будет храниться.
Теперь вы в любой момент сможете посмотреть содержимое сохраненной странички, не подключаясь к Интернету.

Сохранение фрагмента страницы
1. Выделите фрагмент страницы, включая не только текст, но и изображения.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст попадет в буфер обмена.
3. Откройте текстовый редактор, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.

Успешной Вам работы