.Шкідлива програма. 5.З нею працює Excel. 6.Іменована ділянка пам'яті для збереження даних одного типу. 7.Батько комп'ютерної логіки Джордж ... 8.Всесвітня павутина. 10.В ньому відкривається програма. 16.Інформація, яку не розголошують. 18.Портативний персональний ком'ютер. 20.Основний пристрій введення даних. 22.Мова комп'ютера - ... код. 23.Нав'язлива реклама. 25.Комп'ютер, який легко переносити. 28.Набір команд в програмі. 29.Послідовність команд для виконання завдання. 30.Веб-сторінки об'єднані спільною тематикою. 31.Буває слайдова і потокова. 33.Складова "Клієнт-серверної" технології. 35.Тип даних, який сприймається органами слуху. 38.Той, хто виконує команди. 39.Головна кнопка ОС Windows. 40.Український кібернетик. 41.В його честь названо мову та одиницю тиску. 46.Basic, Java, Python - ... програмування. 49.Перший обчислювальний пристрій. 50.Перший програміст - Ада Августа ... 51.Пристрій введення зображень та тексту. 52.Маніпулятор з хвостиком. 53.Текстовий ... 54.Сукупність комп'ютерів об'єднаних між собою. 55.Ім'я користувача. 56.Nikolay.in.ua - це ... сайту. 57.Малюнки, схеми, фотографії. ПО ВЕРТИКАЛІ
1.Тип даних (фільм, реклама). 2.Буває письмовим, столовим або робочим. 3.Пристрій з сенсорним екраном. 4.В ній містяться файли. 6.Знімний накопичувач - ...-диск. 9.Індивідуальна аудіосистема. 11.Основний пристрій виведення. 12.Пристрій для підключення до мережі. 13.Жорсткий диск. 14.Пристрій для запису звуку. 15.Веб-переглядач. 17.Тип комп'ютера, завжди на своєму місці. 19.Документ створений в табличному процесорі. 21.Позначка на робочому столі. 24.E-mail. 26.Набір правил для взаємодії "користувач - комп'ютер". 27.Найменша одиниця інформації. 32.Маленька, шкідлива програма. 33.Бінатний-..., штрих-... або QR-... 34.Windows, Linux, Android - операційна ... 36.Носій інформації круглої форми. 37.Набір вказівок комп'ютеру. 42.Вказівка для виконання. 43.Застарілий накопичувач. 44.Визначає порядок обчислення. 45.Про неї потрібно пам'ятати при роботі в мережі. 47.Складова електронної книги. 48.Кількість пам'яті для кодування одного символу.
будьласка розгадайте це кросворди​

Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.

"Типовой школьный" Паскаль:

// PascalABC.Net 3.0, сборка 1064
const
  k = 100;

var
  s, wd: string;
  i, j, m, n, pt, step: integer;
  Words, WordsSort: array[1..k] of string;
  InOrder: boolean;

begin
  Write('Введите строку: '); Readln(s);
  n := Length(s); pt := 1; m := 0;
  repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if Ord(s[pt]) <= 32 then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
        else break;
      if wd <> '' then begin Inc(m);Words[m] := wd end
    end
  until pt > n;
  // Теперь Words содержит все m слов.
  // Отсортируем их в массиве WordsSort методом Шелла
  for i := 1 to m do WordsSort[i] := Words[i];
  step := m div 2;
  while step > 0 do begin
    for j := m - step downto 1 do begin
      i := j;
      while i <= m - step do begin
        if WordsSort[i] > WordsSort[i + step] then begin
          wd := WordsSort[i];
          WordsSort[i] := WordsSort[i + 1];
          WordsSort[i + 1] := wd
        end;
        i := i + step
      end
    end;
    step := step div 2
  end;
  // Осталось поэлементно сравнить оба массива
  InOrder := true; i := 1;
  while InOrder and (i <= m) do
  begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
  if m = 0 then Writeln('Строка не содержит слов')
  else
    if InOrder then Writeln('Cлова упорядочены')
    else Writeln('Cлова не упорядочены')
end.

Тестовое решение:
Введите строку: слово1    слово2    слово3    слово4 слово5
Cлова упорядочены

Введите строку: слово1    слово2    слово4    слово3 слово5
Cлова не упорядочены

"Современный" вариант решения на Паскале:

// PascalABC.Net 3.0, сборка 1064
var
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
  var Words:=s.Split(Delim).Where(x->x<>'');
  var WordsSort:=Words.Sorted;
  if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
  else Writeln('Cлова не упорядочены')
end.

Тестовое решение совпадает с вышеприведенным.