эля821
26.07.2022 06:40

В чём ошибка?
type st = set of -32768..32767;
var
a:array[1..100,1..100]of integer;
v:array[-10000..10000]of boolean;
el,k,n,i,j,l,h,k_str,g:integer;
b:st;
begin
writeln('Введите количество строк или столбцов квадратной матрицы: ');
readln(n);
writeln('Введите матрицу: ');
for i:=1 to n do
begin
v[i]:=false;
for j:=1 to n do read(a[i,j]);
end;
writeln();
k:=0;b:=[];g:=0;
for i:=1 to n do
for j:=1 to n do begin
if not(a[i,j]in b)then
begin
for l:=1 to n do
for h:=1 to n do if(a[l,h]=a[i,j])then begin inc(k);if(l mod 2 = 0)then inc(k_str);end;
if(k<>0)then writeln('Элемент: ',a[i,j]:5,' Всего: ',k:5,' На чётных строках: ',k_str);
if(k_str=k)and(k>1)then begin inc(g); v[a[i,j]]:=true; end;
k:=0;k_str:=0;
b:=b+[a[i,j]];
end;
end;
writeln();
if(g<>0)then
begin
writeln('Повторяющиеся элементы, расположенные только на чётных строках: ');
for i:=1 to n do
for j:=1 to n do if(v[a[i,j]])then begin write(a[i,j],' ');v[a[i,j]]:=false; end;
end
else writeln('Ни один повторяющийся элемент не расположен только на чётных строках!');
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Georgeo19rus
21.05.2023 18:03

Электронная почта - это основное средство коммуникаций Internet. Она во многом похожа на обычную почту. С ее письмо - текст, снабженный стандартным заголовком (конвертом) - доставляется по указанному адресу, который определяет местонахождение сервера и имя адресата, который имеет почтовый ящик на этом сервере, с тем, чтобы адресат мог его достать и прочесть в удобное время.

Электронная почта оказалась во многом удобнее обычной, "бумажной". Не говоря уже о том, что не приходится вставать из-за компьютера и идти до почтового ящика, чтобы получить или отправить письмо.

Электронная почта является наиболее популярным дополнением к вычислительным сетям. Это но весьма полезное средство. При использовании для связи между сотрудниками всего офиса она оказывается удобнее телефона, так как позволяет передавать отчеты, таблицы, диаграммы и рисунки, которые по телефону передать трудно.

Для электронной почты выпускается довольно много программных продуктов, поэтому с выбором нет проблем. Так, в некоторых случаях даже поставщики операционных систем уже комплектуют свои продукты средствами поддержки электронной почты. Обычно электронная почта работает в пределах локальной сети, но такие системы глобальных вычислительных сетей, как MCI Mail, INTERNET, RELCOM, CompuServe и др., предлагаю‏т электронно-почтовые услуги в национальном и даже в мировом масштабе. Работа электронной почты, не зависит от разницы в часовых поясах, и можно вести переписку с электронной почты с адресатом, который находится на другом конце света.

Обычно для создания и получения сообщений электронной почты применяются специальные почтовые программы, такие как Microsoft Outlook Express, Netscape Composer, The Bat, Eudora Pegasus, Microsoft Outlook и т.д..

Хотя электронная почта может рассматриваться как частный случай передачи файлов, она имеет ряд особенностей, не привычных для стандартных процедур пересылки файлов. Во-первых, отправитель и получатель почти всегда люди, а не машины. Это означает, что служба электронной почты состоит из двух различных, но тесно взаимосвязанных частей: одна обеспечивает взаимодействие с человеком (например, составление, редактирование, прочтение сообщений), другая - передачу сообщений (например, рассылка по спискам, обеспечение передачи).

Другое различие между электронной почтой и средствами передачи файлов общего назначения состоит в том, что почтовые послания представляют собой четко структурированный документ. Во многих системах каждое послание сопровождается большим количеством дополнительных полей. Они включают в себя имя и адрес отправителя, имя и адрес получателя, дату и время отправки письма, перечень людей, которым направлена копия письма, уровень значимости, степень секретности и многое другое.

Объяснение:

0,0(0 оценок)
Ответ:
privitvsim
23.07.2022 21:02

ответ:1) (1 б.) Верные ответы: 3;

2) (1 б.) Верные ответы: 4;

3) (1 б.) Верные ответы: 1; 2;

4) (1 б.) Верные ответы: 3;

5) (1 б.) Верные ответы: 1;

6) (1 б.) Верные ответы: 3;

7) (1 б.) Верные ответы: 4;

8) (1 б.) Верные ответы: 1;

9) (1 б.) Верные ответы: 3;

10) (1 б.) Верные ответы: 3;

11) (1 б.) Верные ответы: 2;

12) (1 б.) Верные ответы: 3;

13) (1 б.) Верные ответы: 4;

14) (1 б.) Верные ответы: 1;

15) (1 б.) Верные ответы: 1; 2;

16) (1 б.) Верные ответы: 1;

17) (1 б.) Верные ответы: 2;

18) (1 б.) Верные ответы: 1;

19) (1 б.) Верные ответы: 3;

20) (1 б.) Верные ответы: 2;

21) (1 б.) Верные ответы: 2;

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота