Регистрация
emoe0zosixnc
02.06.2023 07:54
Информатика
Есть ответ 👍

1. Создайте новый текстовый документ. Представьте в нём следующую информацию в табличной форме В 5 «Б» классе 25 учеников написали диктант по русскому языку. Из них: 8 учеников написали на оценку «5»; 10 – на «4»; 5 – на «3», а остальные 2 ученика – на «2».

2. Ниже таблицы создайте маркированный список, в котором будет отображена информация об учениках и их оценках. Маркер выберите самостоятельно. Цвет текста задайте розовый, размер шрифта – 12 пт, начертание – полужирное.

3. Сохраните созданный документ под именем «КР_Задание2_Ваша фамилия». (формат pdf недопустим для отправки).

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

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

barbariskaulyaЮлия
barbariskaulyaЮлия
4,8(69 оценок)
        uses           crt;               const           n = 8;           m = 10;               var           a: array[1..m, 1..n] of real;           l, r, i, j, s: integer;           x, k: real;           sort: boolean;               begin                     clrscr;                               randomize;           for i : = 1 to m do               for j : = 1 to n do                   a[i, j] : = random(100) / 10;           writeln('матрица a');                               repeat               sort : = false;               for i : = 1 to m do                   for j : = 1 to n - 1 do                       if a[i, j] > a[i, j + 1] then begin                           k : = a[i, j];                           a[i, j] : = a[i, j + 1];                           a[i, j + 1] : = k;                           sort : = true;                       end;           until           sort = false;                     for i : = 1 to m do           begin               for j : = 1 to n do                   write(a[i, j]: 6: 1);               writeln;           end;           writeln;                               writeln('ввод x');           readln(x);                     for i : = 1 to m do           begin               l : = 1;               r : = n;               while l < r do               begin                   j : = trunc((l + r) / 2);                   if a[i, j] < x then                       l : = j + 1                   else                       r : = j;               end;               if a[i, r] = x then                   writeln('в ', i, ' строке позиция x: ', i, ',', r)               else                   writeln('в ', i, ' элемент не найден');           end;                     readkey;                 end.

Популярно: Информатика