Var
i, j: integer;
ar: array[1..5, 1..5]of real;
b: boolean; //объявление переменных
begin
for i := 1 to 5 do
for j := 1 to 5 do read(ar[i, j]); //ввод матрицы
for i := 1 to 5 do
begin
b := true;
for j := 1 to 2 do
if(ar[i, j] <> ar[i, 5 - j + 1]) then //проверяем равен ли 1 элемент 1 строки
// последнему элементу 1 строки, 2 элемент 1 строки и 5-1 элемент
//если они неравны то выходим из одного цикла
begin
b := false; //б -ложь значит строка не симметрична
break;
end;
if(b = true) then write(i, ' '); //если б -истина выводим номер строки
end;
end.
Ответ:
В связи с совершенствованием передачи данных основная цель автоматизированных информационных систем сегодня — помочь группам сотрудничающих индивидуумов преодолеть временные и пространственные барьеры. «Программное обеспечение коллективной работы" — общий термин для информационных систем, которые дают группе людей возможность осуществлять совместную деятельность, например, создавать новые продукты, писать отчеты по реализации проекта, разрабатывать программное обеспечение для компьютеров, принимать решения и т. п. Такие сети, предназначенные не только для совместной работы, но и для получения знаний, часто определяются термином «компьютерные средства коллективной работы в сети». Их также можно рассматривать пак академическую дисциплину, включающую в себя множество дисциплин, которые изучают влияние компьютерной и родственных ей технологий на поведение и производительность группы, а также процессы проектирования, разработки и претворения в жизнь информационных систем для поддержки групп людей, трудящихся сообща. Эта дисциплина основана на информатике, когнитивистике, психологии, социологии, антропологии, этнографии, организационном поведении и информационных системах управления.
For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Канарейка,канава,комната,канатоходец,знание
2\3 диска я так думаю но это не точно