Регистрация
DISTANOV
31.03.2020 20:48
Информатика
Есть ответ 👍

Какая из минимальных единиц информации обладает информативностью А)СЕИ
Б)показатель
С)атрибут
Д)реквизит

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

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

yakinaanna
yakinaanna
4,4(26 оценок)
Var   m: array [1 .. 4, 1 .. 4] of integer;   i, j, k, sum: integer;   count: byte; begin   for i : = 1 to 4 do   begin       for j : = 1 to 4 do       begin           m[i, j] : = random(16);           write(m[i, j]: 4);       end;       writeln;   end;   for i : = 1 to 4 do   begin       sum : = 0;       for j : = 1 to 4 do           sum : = sum + m[j, i];       for j : = 1 to 4 do           if (m[j, i] > sum - m[j, i]) then               inc(count);   end;   writeln('количество особых элементов = ', count); end.

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