nyuuzyou/soloby huggingface dataset:
Вопрос: Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.
Категория: школьный раздел
Ответы:
const
pi = 3.14;

var
d, L: real;

begin
writeln('Введите диаметр окружности:');
write('d = ');
readln(d); { <-- Вводим диаметр }
{ Вычисляем длину окружности: }
L := pi * d;
{ Выводим результат с точностью 2 знака: }
writeln('Длина окружности: L = ', L:0:2);
readln
end.
Вопрос: Найти решение системы линейных уравнений вида
A1·x + B1·y = C1,A2·x + B2·y = C2,
заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение. Воспользоваться формулами
x = (C1·B2 − C2·B1)/D, y = (A1·C2 − A2·C1)/D, где D = A1·B2 − A2·B1.
Категория: школьный раздел
Ответы:
var
A1, B1, C1, A2, B2, C2, D, x, y: real;

begin
writeln('Введите коэффициенты A1, B1, C1:');
readln(A1, B1, C1);
writeln('Введите коэффициенты A2, B2, C2:');
readln(A2, B2, C2);
D := A1 * B2 - A2 * B1; { <== Вычисляем определитель системы }
{ Вычисляем x и y: }
x := (C1 * B2 - C2 * B1) / D;
y := (A1 * C2 - A2 * C1) / D;
writeln;
writeln('Результат:');
writeln(' x = ', x:0:3);
writeln(' y = ', y:0:3);
readln
end.
Вопрос: Дана длина ребра куба a. Найти объем куба V = a3 и площадь его поверхности S = 6·a2 (программа Паскаль)
Категория: школьный раздел
Ответы:
var
a, V, S: real;

begin
writeln('Введите длину ребра куба:');
readln(a); { <-- Вводим длину ребра }
V := a * a * a; { <-- Объем куба }
S := 6 * a * a; { <-- Площадь поверхности куба }
writeln('Результат:');
writeln(' V = ', V:0:3);
write(' S = ', S:0:2);
readln
end.
Вопрос: Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a·b·c и площадь поверхности S = 2·(a·b + b·c + a·c)
Категория: школьный раздел
Ответы:
var
a, b, c, V, S: real;

begin
writeln('Введите размеры прямоугольного параллелепипеда:');
readln(a, b, c); { <-- Вводим размеры }
{ Вычисляем объем параллелепипеда: }
V := a * b * c;
{ Вычисляем площадь поверхности: }
S := 2 * (a * b + b * c + a * c);
writeln('Результат:');
writeln(' V = ', V:0:3);
writeln(' S = ', S:0:2);
readln
end.
Вопрос: Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R,  S = π·R2.
В качестве значения π использовать 3.14.
Категория: школьный раздел
Ответы:
const
pi = 3.14; { <-- Число "пи" }

var
R, L, S: real;

begin
write('R = ');
readln(R); { <-- Вводим радиус }
L := 2 * pi * R; { <-- Вычисляем длину окружности }
S := pi * sqr(R); { <-- Вычисляем площадь круга }
writeln('Результат:');
writeln(' L = ', L:0:2);
writeln(' S = ', S:0:2);
readln
end.
Вопрос: Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2
Категория: школьный раздел
Ответы:
var
a, b: real;

begin
writeln('Введите два числа:');
readln(a, b); { <-- Вводим два числа и нажимаем Enter }
{ Выводим результат: }
writeln('Среднее арифметическое чисел ', a, ' и ', b,
' равно ', (a + b) / 2);
readln
end.
Вопрос: Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a·b)^(1/2)
Категория: школьный раздел
Ответы:
var
a, b: real;

begin
writeln('Введите два неотрицательных числа:');
readln(a, b); { <-- Вводим два числа и нажимаем Enter }
{ Результат с точностью 3 знака: }
writeln('Среднее геометрическое ', a, ' и ', b,
' равно ', sqrt(a * b):0:3);
readln
end.
Вопрос: Даны две целые переменные A, B.  Составить  фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значение A равно старому значению B и наоборот).
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   A, B, T : INTEGER;
BEGIN
  ClrScr;     { Чистка экрана }
  Write(‘ Введите два значения   ‘);  
  ReadLn(A,B);
  {Введем дополнительную целую переменную T}
  T := A;  A := B;  B := T;
  Write(A,B);
END.

Решить  предыдущую  задачу,  не  используя дополнительных переменных (и предполагая, что значениями целых переменных могут быть произвольные целые числа).

USES Crt;
VAR
   A, B : INTEGER;
BEGIN
  ClrScr;
  Write(‘ Введите два значения   ‘); 
  ReadLn(A,B);
  A := A + B;   B := A - B;  A := A - B; 
  Write(A,B);
END.
Вопрос: Задан радиус  окружности. Найти площадь и длину окружности
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   R : INTEGER;
   S,L: REAL; 
BEGIN
  ClrScr;
  Write(‘ Введите радиус окружности   ‘); 
  ReadLn(R);
  {Pi - зарезервированное значение}
  S:=Pi*R*R;    {Вычисление площади окружности}
  L:=2*Pi*R;     {Вычисление длины окружности}
  WriteLn(‘ Площадь окружности = ’,S:4:2); 
  WriteLn(‘ Длина окружности = ‘,L:4:2);
END.
Вопрос: В своей практике А. Файоль использовал следующие принципы управления
(*ответ*) разделение труда
(*ответ*) власть, дисциплина, единство командования, единство руководства
(*ответ*) подчинение частных интересов общему
(*ответ*) вознаграждение, справедливость
(*ответ*) централизация, иерархия, порядок
(*ответ*) постоянство состава персонала, единение персонала
(*ответ*) инициатива
 бюрократия
В связи с тем, что в сфере социальной защиты появляются новые функции, а количество учреждений, работающих с различными категориями населения постоянно растет, необходима унифицированная программа – в рамках
(*ответ*) региона
 муниципального образования
 органа социальной защиты населения
 учреждения социальной защиты населения
В сочетании со знаниями общих законов и принципов управления теория искусства управления позволяет получить оптимальный управленческий результат; она основана в большей мере на
(*ответ*) интуиции
(*ответ*) индивидуальном восприятии
(*ответ*) прошлом опыте
 теоретическом опыте
 системном подходе
В СССР перед созданным в _ г. Государственным институтом техники управления была поставлена задача проведения научного анализа роли и значения планирования, учета и организации в сфере управления
(*ответ*) 1926
 1924
 1925
 1927
 1928
В сущности, то, что мы сегодня называем управлением, зародилось во времена промышленной революции в _ в.
(*ответ*) ХIХ
 XVIII
 XVII
 XVI
В сфере социальной работы динамичная ситуация сформировала определенные потребности у кадров; применение быстрых и более глубоких методов анализа позволило выявить и проранжировать эти потребности
(*ответ*) на первом месте находится потребность в “защите защищающих”, т.е. работники, выполняющие функции социальной защиты, сами нуждаются в ней
(*ответ*) на втором месте – потребность в большей оплате своего труда
(*ответ*) на третьем месте - потребность в снятии напряжения, которое накапливается от общения с неуравновешенными людьми
(*ответ*) на четвертом месте – потребность в профессиональном обучении, которое соответствовало бы занимаемой должности и служебному продвижению
 на втором месте - потребность в снятии напряжения, которое накапливается от общения с неуравновешенными людьми
 на третьем месте – потребность в профессиональном обучении, которое соответствовало бы занимаемой должности и служебному продвижению
В теории и практике социального управления определение главных целей, согласование целей разных уровней исследовано крайне недостаточно, что приводит к _ в практике социального управления
(*ответ*) огромным издержкам
 большой напряжённости
 неразберихе
 значительным сбоям
 значительным недостаткам
В теории управления понятие закономерность обычно рассматривается как _ стадия формулирования закона в начале его теоретического исследования
(*ответ*) первоначальная
 вторая
 третья
 четвёртая
 заключительная
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Определить является ли данное целое число R четным
Категория: школьный раздел
Ответы:
USES Crt; 
VAR   
R: INTEGER; 
BEGIN   
ClrScr;   
WriteLn('Введите число'); 
  ReadLn(R);  
 IF R MOD 2 = 0 Then WriteLn('Число четное')
                             Else WriteLn('Число не четное');
END.
Вопрос: Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  X, Y, Z: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три целых числа'); 
  ReadLn(X,Y,Z);
  IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')
                                         Else WriteLn('Первое число не принадлежит заданному интервалу');
  IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')
                                         Else WriteLn('Второе число не принадлежит заданному интервалу');
  IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')
                                         Else WriteLn('Третье число не принадлежит заданному интервалу');
END.
Вопрос: Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.
Категория: школьный раздел
Ответы:
USES Crt; VAR   A, B, C: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три числа');
   ReadLn(A,B,C);
  IF (A+B>C) AND (A+C>B) AND (B+C>A) Then WriteLn('Треугольник построить можно')
                                                                           Else WriteLn('Треугольник построить нельзя');
END.
Вопрос: Составить программу, которая по введенному значению 1, 2, 3, 4 вычисляет площадь треугольника:
1.    По основанию и высоте
2.    По трем  сторонам
3.    По двум сторонам и углу между ними
4.    Выход
Категория: школьный раздел
Ответы:
USES Crt; LABEL  M1,M2; VAR   X:INTEGER;  A,H,S,B,L,C,P:REAL; BEGIN   M1:ClrScr;   WriteLn('Вычисление площади треугольника'); WriteLn;   WriteLn('1.По основанию и высоте');   WriteLn('2.По трем сторонам');   WriteLn('3.По двум сторонам и углу между ними');
  WriteLn('4.Выход');
  WriteLn;
  WriteLn('Введите номер пункта');  ReadLn(X);
  CASE X OF
     1: Begin
           ClrScr;
           Write('Введите основание и высоту треугольника  '); ReadLn(A,H);
           S:=A*H/2;
           WriteLn('Площадь треугольника = ',S:5:2);    ReadLn;
           GOTO M1;
        End;
    2: Begin
          ClrScr;
          Write('Введите значения сторон треугольника  '); 
          ReadLn(A,B,C);
          P:=(A+B+C)/2;
          S:=Sqrt(P*(P-A)*(P-B)*(P-C));
          WriteLn('Площадь треугольника = ',S:5:2);     ReadLn;
          GOTO M1
       End;
    3: Begin
          ClrScr;
          Write('Введите значения двух сторон и угол между ними  '); 
          ReadLn(A,B,L);
          S:=A*B*Sin(L*Pi/180)/2;
          WriteLn('Площадь треугольника = ',S:5:2); ReadLn;
          GoTo M1;
       End;
     4: Begin
            ClrScr;     
            WriteLn('Программа закончила свою работу'); ReadLn;
            GoTo M2;
          End;
      ELSE
         ClrScr;      
         WriteLn('Номер пункта ввели неверно'); ReadLn;
         GoTo M1;
End;
M2:END.
Вопрос: Составить программу, которая по введенному значению выводит оценки по математике, физике, информатике
Категория: школьный раздел
Ответы:
USES Crt; LABEL R1,R2; 
VAR  X: INTEGER;    M:CHAR; BEGIN
  R1:ClrScr;   WriteLn('ПРГ выводит оценки по математике, физике и химии');
  WriteLn('1.Вывод оценок по предметам');
  WriteLn('2.Выход');
  WriteLn('Введите номер пункта');  
  ReadLn (X);
  CASE X OF
  1: Begin
        ClrScr;          WriteLn(' По какому предмету Вы хотите увидеть оценки');         WriteLn(' М - математика');
        WriteLn(' Ф - физика');
        WriteLn(' Х - химия');
        ReadLn(M);
        CASE M OF
    'М','м':WriteLn('5 5 4 4 5 5 3 5 5 ');
    'Ф','ф':WriteLn('5 4 5 3 5 4 5 5 5 ');
    'Х','х':WriteLn('4 3 5 3 4 4 4 5 ');
        End;
      End;
  2: Begin
        WriteLn('Программа закончена');
        GoTo R2;
     End;
     Else
        WriteLn('Номер неверен'); ReadLn;
        GoTo R1;
  End;
 R2:End.
Вопрос: Найти произведение положительных, сумму и количество отрицательных  из 10 введенных целых значений
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  X: INTEGER;  S, K, P: INTEGER;    I: BYTE;
Begin
   P:=1; S:=0; K:=0;
   FOR I:=1 TO 10 DO Begin
       WriteLn(‘Введите  ‘,I,’ -е значение’);       ReadLn(x);
       IF X>0 Then P:=P*X;    { произведение положительных }
       IF X<0 Then Begin
                               S:=S+X;  { сумма отрицательных }
                               K:=K+1; { количество отрицательных }
                             End;
   End;
   WriteLn(‘ Произведение положительных значений = ‘,p);
   WriteLn(‘ Сумма отрицательных значений = ‘,s);
   WriteLn(‘ Количество отрицательных значений = ‘,k);
END.
Вопрос: Из N целых чисел найти минимальное значение
Категория: школьный раздел
Ответы:
USES Crt;
VAR  MI, X: INTEGER;  I,N: BYTE;
BEGIN
  WriteLn('Введите количество значений');  ReadLn(n);
  WriteLn('Введите первое значение');  ReadLn(mi);
  FOR I:=2 TO N DO Begin
     WriteLn(‘Введите ‘,I,’ -е значение’);   ReadLn(x);
     IF X<MI Then MI:=X;
  End;
 WriteLn(‘Минимальное значение = ‘,MI);
END.
Вопрос: Из N целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  MI, MA, N, I, X: INTEGER; FL, FL1: BYTE;
BEGIN
 WriteLn('Введите количество значений');  ReadLn(N);
  FL:=0; FL1:=0;
 FOR I:=1 TO N DO Begin
   WriteLn('Введите ',I,' значение');  ReadLn(X);
   IF (FL=0) AND (X<0) Then Begin
                                                    MA:=X;  FL:=1;
                                                  End;
   IF (FL1=0) AND (X>0) Then Begin
                                                       MI:=X;  FL1:=1;
                                                    End;
   IF (X<0) AND (X>MA) Then MA:=X;
   IF (X>0) AND (X<MI) Then MI:=X;
 End;  
 IF FL=1 Then WriteLn('максимальное среди отрицательных = ',ma)
               Else WriteLn('отрицательных нет');
 IF  FL1=1 Then WriteLn('минимальное среди положительных = ',mi)
                  Else WriteLn('положительных нет');
END.
Вопрос: Дано  целое  число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n. {Введем целую переменную k, которая меняется от  0 до  n,  причем  поддерживается такое свойство: b = (a в степени k).}
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   A, N, B, K : INTEGER;
BEGIN
  ClrScr;
  Write(‘ Введите два значения   ‘);  ReadLn(A,N);
  K := 0; B := 1;
  While K <> N DO Begin
      K := K + 1;   B := B * A;
  End;
  Write(‘ A в степени N = ’,B);
END.
Вопрос: Даны натуральные числа а, b. Вычислить произведение а*b, используя в программе лишь операции +, -, =, <>.
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   A, B, C, K : INTEGER;
BEGIN
  Write(‘ Введите два значения ‘);   ReadLn(A,B); 
   K := 0; C := 0;
   While K <> B DO Begin
      K := K + 1;   C := C + A;
   End;
   {C = A * K и K = B, следовательно, C = A * B}
   Write(‘ A*B= ‘,C);
END.
Вопрос: В ходе её выработки социальная доктрина предполагает следующее
(*ответ*) выделяет главные национальные интересы, соответствующие перспективным целям данной страны и всего человечества
(*ответ*) определяет ряд интересов, от удовлетворения которых зависят национальная безопасность данной страны
(*ответ*) определяет первоочередные ресурсы, которые могут быть использованы для достижения стратегических социальных целей
 выделяет главные национальные интересы, соответствующие перспективным целям данной страны
 определение границ социальной сферы – объекта управленческих воздействий
В целеполагании _ являются конечные (или ориентированные на далёкую перспективу, большой отрезок времени) цели всего общества, цели всей социальной системы
(*ответ*) определяющими
 направляющими
 координирующими
 значимыми
В целеполагании возникает задача – свести множество целей до минимума, выбрать главную, исключить из веера целей те из них, которые выступают как средство достижения других целей, а также те, которые _ на выбор альтернатив
(*ответ*) не влияют
 практически не влияют
 совершенно не влияют
 лишь в малой степени влияют
В целом к социальным и психологическим методам относятся способы управляющего воздействия, опирающиеся на
(*ответ*) законы социального развития
(*ответ*) законы психологии
(*ответ*) постановку социальных целей
(*ответ*) повышение качества жизни
 внушение, убеждение, подражание
 вовлечение, принуждение и понуждение, побуждение
Важнейшей функцией управления выступает наиболее полное включение в управленческую деятельность “управленческой элиты”, для создания возможностей саморазвития, самопроявления сущностных сил социальной системы и её образований:
(*ответ*) региональных
(*ответ*) муниципальных
(*ответ*) трудовых
(*ответ*) семейных
(*ответ*) каждого человека в отдельности
 государственных
 групповых
Все технологии обучения менеджменту можно разделить на следующие виды
(*ответ*) инновационные
(*ответ*) “диагностика – консалтинг – обучение”
(*ответ*) традиционные
(*ответ*) комбинированные
 «диагностика – маркетинг-обучение»
 комплексные
Вышедшие в предреволюционные годы труды _ “Всеобщая организационная наука (тектология)” предвосхитили некоторые идеи кибернетики и общей теории систем
(*ответ*) А.А. Богданова
 М.М. Сперанского
 И.Т. Посошкова
 В.Н. Татищева
 Н.А. Витке
 П.М. Керженцева
Главная особенность социального управления состоит в том, что субъектом и объектом в нем является человек; оно делится на такие подвиды, как
(*ответ*) государственное
(*ответ*) военное
(*ответ*) экономическое
(*ответ*) производственное
(*ответ*) общественное
 муниципальное
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Дано натуральное (целое неотрицательное) число  A  и целое положительное число D. Вычислить частное Q и остаток R при делении A на D, не используя операций DIV и MOD. (Согласно определению, А = Q * D + R, 0 <= R < D.)
Категория: школьный раздел
Ответы:
USES Crt;
VAR 
   A, D, R, Q : INTEGER;
BEGIN
   ClrScr; 
   Write(‘ Введите два значения ‘);   ReadLn(a,d); 
    R := A; Q := 0;
   While Not (R < D) DO Begin
      R := R - D; {R >= 0}
      Q := Q + 1;
   End;
   WriteLn(‘ Частное = ’,Q);
   WriteLn(‘ Остаток = ’,R);
END.
Вопрос: Каждый год урожайность повышается на 5%.  Через сколько лет урожай удвоится?
Категория: школьный раздел
Ответы:
USES Crt;
VAR
 YR, KL: BYTE;  YRG: REAL;
Begin
 ClrScr;
 Write('Введите урожайность ');  ReadLn(YR);
 YRG:=YR;
 While (YRG <2*YR) Do Begin
    YRG:=YRG+0.05*YRG;
     KL:=KL+1;
 End;
 WriteLn('Новый урожай ',YRG:5:0);
 Write('Через ',KL,' лет урожай удвоится');
END.
Вопрос: Деду M лет, а внуку N лет. Через сколько лет дед станет вдвое старше внука.  И сколько при этом лет будет деду и внуку.
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   M,N: BYTE;  Kl: BYTE;
BEGIN
  ClrScr;
  Write('Введите количество лет деда  ');  ReadLn(m);
  Write('Введите количество лет внука  ');  ReadLn(n);
  KL:=0;
  While (M>2*N) DO  Begin
    M:=M+1;    N:=N+1;    KL:=KL+1;
  End;
  WriteLn(M,' лет деду');
  WriteLn(N,' лет внуку');
  WriteLn('Через ',KL,' лет дед вдвое станет старше внука');
END.
Вопрос: Поле засеяли цветами двух сортов на площади S1 и S2. Каждый год площадь цветов первого сорта увеличивается вдвое, а площадь второго сорта увеличивается втрое. Через сколько лет площадь первых сортов будет составлять меньше 10% от площади вторых сортов.
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   S1,S2:WORD;  KL:BYTE;
BEGIN
 ClrScr;
 Write('Введите площадь, которую засеяли цветами 1-го сорта ');  ReadLn(S1);
 Write('Введите площадь, которую засеяли цветами 2-го сорта ');  ReadLn(S2);
  KL:=1;
  While (S1>0.1*S2) DO Begin
    S1:=S1*2;    S2:=S2*3;    KL:=KL+1;
  End;
  WriteLn('Площадь, которую засеяли цветами 1-го сорта ',S1);
  WriteLn('Площадь, которую засеяли цветами 2-го сорта ',S2);
  WriteLn('Через ', kl,' лет');
END.
Вопрос: Составить программу перевода числа из 10 системы счисления в 2 систему счисления.
Категория: школьный раздел
Ответы:
USES Crt;
VAR
   DES, OST, I, DW:INTEGER;
BEGIN
  ClrScr;
  Write('Введите десятичное число  '); ReadLn(DES);
  I:=1;
  While (DES>=2) DO Begin
      OST:=DES mod 2;
      DES:=DES div 2;
      DW:=DW+OST*I;
      I:=I*10;
  End;
  DW:=DW+DES*I;
  Write('Двоичная запись числа  ',DW);
END.
Вопрос: Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=10;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I:BYTE;
 BEGIN
   ClrScr;
   { Заполнение массива }
   FOR I:=1 TO N DO Begin
     Write('Введите ',I,' элемент массива ');  ReadLn(A[I]);
   End;
   { Обработка элементов массива }
   FOR I:=1 TO N DO
     IF A[I]>0 THEN  WriteLn('Положительный элемент = ',A[I],' его индекс = ',I);
 END.
Вопрос: Составить программу обработки массива K, состоящего из 20 элементов. Заполнить массив случайными числами в диапазоне от -5 до 25. Все элементы массива К, значения которых находятся в интервале от -2 до 20 возвести в квадрат. Измененный массив вывести на экран.
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   K:ARRAY[0..20] OF INTEGER;
   I:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива случайными числами }
   FOR I:=1 TO 20 DO Begin
     K[I]:=Random(30)-5;   Write(K[I]:3);
   End;   WriteLn;
   FOR I:=1 TO 20 DO
     IF (K[I]<20) AND (K[I]>-2) THEN K[I]:=K[I]*K[I];
   WriteLn('Измененный массив');
   FOR I:=1 TO 20 DO
     Write(K[I]:4);
  END.
Вопрос: Составить программу вычисления и печати значений функции  Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего  из 6 элементов. Значения функции записать в массив Y.
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   X,Y:ARRAY[0..6] OF REAL;
   I: BYTE;
 BEGIN
   ClrScr;
   FOR I:=1 TO 6 DO Begin
     Write('Введите ',I,' значение аргумента '); ReadLn(X[I]);
   End;
   FOR I:=1 TO 6 DO Begin
     Y[I]:=SIN(X[I]-1)/(2*X[I]);
     WriteLn(' X= ',X[I]:4:1,'   Y=',Y[I]:5:2);
   End;
 END.
Вопрос: Дан массив M, состоящий из 30 элементов. Элементы массива - произвольные  целые числа. Выдать на экран значение каждого пятого и положительного  элемента.  Указанные элементы выдать в строку.
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   M:ARRAY[0..30] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 30 DO Begin
     M[I]:=Random(20)-4;  Write(M[I]:3);
   End;   WriteLn;
   I:=5;
   WriteLn(' Значения каждого пятого и положительного элемента массива');
   While I<=30 DO Begin
     IF M[I] > 0 THEN Write(M[I]:3);
     I:=I+5;
   End;
 END.
Вопрос: Из элементов массива Р сформировать массив М той же размерности  по правилу: если  номер четный, то М[I]=I*P[I],если нечетный, то  M[I]=-P[I].
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=15;
 VAR
   P, M: ARRAY[0..N] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;  Randomize;
   WriteLn(' Значения элементов массива ');
   FOR I:=1 TO N DO Begin
     P[I]:=Random(70);  Write(P[I]:3);
   End;   WriteLn;
   WriteLn(' Значения элементов сформированного массива M');
   FOR I:=1 TO N DO Begin
     IF I mod 2 =0 Then M[I]:=P[I]*I Else M[I]:=-P[I];
     Write(M[I]:4);
   End;
 END.
Вопрос: Определить сумму элементов массива Р(n), значения которых > заданного Т
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=30;
 VAR
   P:ARRAY[0..N] OF INTEGER;
   I,T:BYTE;   S:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива случайными числами }
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     P[I]:=Random(30);   Write(P[I]:3);
   End;   WriteLn;
   Write(' Введите значение переменной   ');   ReadLn(T);
   S:=0;
   FOR I:=1 TO N DO
     IF P[I]>T THEN S:=S+P[I]; { сумма элементов массива > T }
   WriteLn(' Сумма элементов массива > заданного значения = ',S);
 END.
Вопрос: Дан массив целых чисел, состоящий из 25 элементов. Подсчитать сумму   элементов массива, произведение положительных и количество нулевых   элементов. Результат вычисления вывести на экран.
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A:ARRAY[0..25] OF INTEGER;
   I: BYTE;   S,K: INTEGER;   P: REAL;
 BEGIN
   ClrScr;  Randomize;
   { Заполнение массива случайными числами }
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 25 DO Begin
     A[I]:=Random(10)-3;   Write(A[I]:3);
   End;   WriteLn;
   S:=0; K:=0; P:=1;
   FOR I:=1 TO 25 DO Begin
     S:=S+A[I];  { сумма элементов массива }
     IF A[I]>0 THEN P:=P*A[I]; { произведение положительных элементов массива }
     IF A[I]=0 THEN K:=K+1; { количество нулевых элементов массива }
   End;
   WriteLn(' Сумма элементов массива = ',S);
   WriteLn(' Произведение положительных элементов массива = ',P:0:0);
   WriteLn(' Количество нулевых элементов массива = ',K);
 END.
Вопрос: Дан массив четных чисел, состоящий из 15 элементов. Заполнить его с   клавиатуры. Найти:
•    сумму элементов, имеющих нечетные индексы;
•    подсчитать количество элементов массива, значения которых больше заданного     числа T и кратны 5;
•    номер первого отрицательного элемента, делящегося на 5 с остатком 2.
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   T=11;
 VAR
   A:ARRAY[0..15] OF INTEGER;
   I,NP,FL: BYTE;   S,K: INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO 15 DO Begin
     Write('Введите ',I,' злемент массива ');  ReadLn(A[I]);
   End;   WriteLn;
   S:=0; K:=0; FL:=0;
   FOR I:=1 TO 15 DO Begin
     IF I mod 2 =0 THEN S:=S+A[I]; { сумма элементов, имеющих четные индексы }
     IF (A[I]>T) AND (A[I] mod 5 =0) THEN K:=K+1; { количество }
     IF (A[I]<0) AND (A[I] mod 5 =-2) AND (FL=0) THEN Begin NP:=I; FL:=1; End;
   End;
   WriteLn(' Сумма элементов,имеющих четные индексы = ',S);
   WriteLn(' Количество элементов, значения которых > ',T,' и кратны 5 = ',K);
   WriteLn(' Номер первого отрицательного элемента, делящегося на 5 с остатком 2 = ',NP);
 END.
Вопрос: Дан массив четных чисел, состоящий из 10 элементов. Заполнить его с   клавиатуры. Найти:
•    сумму положительных элементов, значения которых меньше 10;
•    вывести индексы тех элементов, значения которых кратны 5 и 3;
•    количество пар соседних элементов с суммой равной заданному числу.
Категория: школьный раздел
Ответы:
USES Crt;
 CONST  T=21;
 VAR
   A:ARRAY[0..10] OF INTEGER;
   I: BYTE;   S,K: INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO 10 DO Begin
     Write('Введите ',I,' злемент массива ');   ReadLn(A[I]);
   End;   WriteLn;
   S:=0; K:=0;
   WriteLn(' Индексы элементов, значения которых кратны 3 и 5');
   FOR I:=1 TO 10 DO Begin
     IF (A[I]>0) AND (A[I]<10) THEN S:=S+A[I];
     IF (A[I] mod 3 =0) AND (A[I] mod 5 =0) THEN Write(I:3) ;
     IF I<>10 THEN IF A[I]+A[I+1]=T THEN K:=K+1;
   End;   WriteLn;
   WriteLn(' Сумма положительных элементов, значения которых < 10 = ',S);
   WriteLn(' Количество пар соседних элементов с суммой равной ',T,' = ',K);
 END.
Вопрос: Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с   клавиатуры. Найти:
•    удвоенную сумму положительных элементов;
•    вывести индексы тех элементов, значения которых больше значения     предыдущего элемента (начиная со второго);
•    количество пар соседних элементов с одинаковыми знаками.
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A:ARRAY[0..10] OF INTEGER;
   I: BYTE;   S,K: INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO 10 DO Begin
     Write('Введите ',I,' злемент массива ');  ReadLn(A[I]);
   End;   WriteLn;
   S:=0; K:=0;
   WriteLn(' Индексы элементов, значения которых > значения предыдущего элемента');
   FOR I:=1 TO 10 DO Begin
     IF (A[I]>0) THEN S:=S+A[I];
     IF I<>1 THEN IF A[I] > A[I-1] THEN Write(I:3);
     IF I<>10 THEN IF (A[I] * A[I+1])>0 THEN K:=K+1;
   End;   WriteLn;
   WriteLn(' Удвоенная сумма положительных элементов = ',S*2);
   WriteLn(' Количество пар соседних элементов с одинаковыми знаками = ',K);
 END.
Вопрос: Дан массив C, состоящий из N элементов. Элементы массива - произвольные   целые числа. Вывести на экран элементы массива в обратном порядке
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=20;
 VAR
   C:ARRAY[0..N] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     C[I]:=Random(20);  Write(C[I]:3);
   End;   WriteLn;
   WriteLn(' Значения элементов массива в обратном порядке');
   FOR I:=N DOWNTO 1 DO
     Write(C[I]:3);
 END.
Вопрос: Дан массив A, состоящий из N элементов. Элементы массива - произвольные   целые числа. Распечатать элементы в две строки: в первой строке элементы   с нечетными индексами, а во второй - элементы с четными индексами
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=25;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;  Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(20);    Write(A[I]:3);
   end;   WriteLn;
   I:=1;
   WriteLn(' Элементы с нечетными индексами');
   WHILE I<=N DO Begin
     Write(A[I]:3);   I:=I+2;
   End;   WriteLn;
   I:=2;
   WriteLn(' Элементы с четными индексами');
   WHILE I<=N DO Begin
     Write(A[I]:3);   I:=I+2;
   End;
 END.
Вопрос: Дан массив K, состоящий из 45 элементов. Элементы массива - произвольные   целые числа. Определить минимальный элемент массива и его индекс
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   K:ARRAY[0..45] OF INTEGER;
   I,IND: BYTE;   MIN:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 45 DO Begin
     K[I]:=Random(35)+6;   Write(K[I]:3);
   End;   WriteLn;
   MIN:=K[1];   IND:=1;
   { нахождение минимального значения и его индекса }
   FOR I:=2 TO 45 DO
     IF K[I]<MIN THEN Begin MIN:=K[I]; IND:=I; End;
   WriteLn(' Минимальное значение = ',MIN);
   WriteLn(' Индекс минимального значения = ',IND);
 END.
Вопрос: Дан массив B, состоящий из N элементов. Элементы массива - произвольные   целые числа. Определить сумму элементов, расположенных до максимального   элемента массива.
Категория: школьный раздел
Ответы:
USES Crt;
 CONST  N=20;
 VAR
   B:ARRAY[0..N] OF INTEGER;
   I,IND: BYTE;   MAX,S:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     B[I]:=Random(35);     Write(B[I]:3);
   End;   WriteLn;
   MAX:=B[1];   IND:=1;
   { нахождение максимального значения и его индекса }
   FOR I:=2 TO N DO
     IF B[I]>MAX THEN Begin MAX:=B[I]; IND:=I;  End;
   WriteLn(' Максимальное значение = ',MAX);
   { нахождение суммы элементов, расположенных до максимального элемента }
   S:=0;
   FOR I:=1 TO IND-1 DO
     S:=S+B[I];
   WriteLn(' Cумма элементов, расположенных до максимального элемента =',S);
 END.
Вопрос: Дан массив A, состоящий из N элементов. Элементы массива - произвольные   целые числа. Заменить нулями все элементы массива, расположенные за минимальным   элементом массива. Измененный массив вывести на экран
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=15;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I,IND: BYTE;   MIN:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(400);   Write(A[I]:4);
   End;   WriteLn;
   MIN:=A[1];   IND:=1;
   { нахождение минимального значения и его индекса }
   FOR I:=2 TO N DO
     IF A[I]<MIN THEN Begin  MIN:=A[I]; IND:=I; End;
   WriteLn(' Минимальное значение = ',MIN);
   { замена нулями элементов, расположенных за минимальным значением }
   FOR I:=IND+1 TO N DO
     A[I]:=0;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.
Вопрос: Изменилась парадигма общественного развития – не экономика определяет вектор развития для повышения качества жизни всех граждан, а развитие _ жизни
(*ответ*) всей хозяйственной
 социальной
 социально-психологической
 социальной политической
Интеллектуальные системы управления, состоящие из творческих индивидуальностей, мотивированных к управленческой деятельности, способны достигать _ результатов в управлении общественными делами
(*ответ*) наилучших
 оптимальных
 ощутимых
 масштабных
Информация должна содержать _ сведений, позволяющих обеспечить формирование управляющих воздействий соответственно разнообразию объекта управления
(*ответ*) максимум
 минимум
 оптимум
 комплекс
 систему
 набор
Источниками активности являются _; они – движущая сила и причина активности человека
(*ответ*) стимулы
 мотивы
 намерения
 цели
 идеалы
 ценности
К законам управления относятся общие, существенные и необходимые связи, изучаемые
(*ответ*) наукой управления
 социологией
 наукой менеджмента
 эргономикой
 социальной психологией
 экономикой
К оригинальным идеям _ следует отнести разделение богатства на вещественное и невещественное; под первым он подразумевал богатство государства (казны) и народа, под вторым — эффективное управление страной и наличие справедливых законов
(*ответ*) И.Т. Посошкова
 В.Н. Татищева
 М.М. Сперанского
 А.А. Богданова
 К.А. Витке
 П.И. Кершенцева
К основным принципам социального управления относят принципы
(*ответ*) единоначалия в принятии решений и коллегиальности при их обсуждении
(*ответ*) единства воздействия всех методов управления для поддержания целостности социальной системы
(*ответ*) сочетания отраслевого и территориального управления
(*ответ*) приоритетности в достижении стратегических целей
(*ответ*) научности социального управления
(*ответ*) прогнозирования социального управления
 принятия решений и коллегиальности при их обсуждении
 плюрализма всех методов управления для поддержания целостности социальной системы
К основным принципам социального управления относят принципы
(*ответ*) мотивации (стимулирования) труда
(*ответ*) ответственности за результаты социального управления
(*ответ*) рационального подбора, подготовки, расстановки и использования кадров
(*ответ*) экономичности и эффективности управления
(*ответ*) системности (рассмотрение объекта или субъекта управления как системы, состоящей из различных звеньев)
(*ответ*) иерархичности (рассмотрение систем как многоступенчатых, многоуровневых, которые требуют деления на элементы)
(*ответ*) гласности в принятии решения
 системности (рассмотрение систем как многоступенчатых, многоуровневых, которые требуют деления на элементы)
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Дан массив A, состоящий из N элементов. Элементы массива - произвольные   целые числа. Заменить нулями все элементы массива, расположенные между   минимальным и максимальным элементами массива, кроме их самих.   Измененный массив вывести на экран
Категория: школьный раздел
Ответы:
USES Crt;
 CONST  N=15;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I, IMIN, IMAX, k1, k2: BYTE;   MIN, MAX:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(270);  Write(A[I]:4);
   end;   WriteLn;
   MIN:=A[1]; MAX:=A[1];   IMIN:=1; IMAX:=1;
   { нахождение минимального и максимального значения и их индексов }
   FOR I:=2 TO N DO Begin
     IF A[I]<MIN THEN Begin MIN:=A[I];  IMIN:=I;  End;
     IF A[I]>MAX THEN Begin MAX:=A[I]; IMAX:=I; End;
   End;
   WriteLn(' Минимальное значение = ',MIN);
   WriteLn(' Максимальное значение = ',MAX);
   { замена нулями элементов, расположенных между минимальным и максимальным
     значением }
   IF IMIN<IMAX THEN Begin K1:=IMIN+1; K2:=IMAX-1;  End
                             ELSE  Begin  K1:=IMAX+1; K2:=IMIN-1;  End;
   FOR I:=K1 TO K2 DO
     A[I]:=0;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.
Вопрос: Дан массив чисел. Найти наибольший элемент, поставить его первым
Категория: школьный раздел
Ответы:
USES Crt;
 CONST  M=100;
 VAR
   MAS: ARRAY[1..100] OF INTEGER;
   I,K,N,NEW: INTEGER;
 BEGIN
   ClrScr;
   Write(' Введите размер массива N= ');   ReadLn(N);
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO N DO Begin
     Write(' Введите ',I,' элемент массива ');  ReadLn(MAS[I]);
   End;
   NEW:=MAS[N];   K:=N;
   { Нахождение наибольшего элемента и его индекса }
   FOR I:=N DOWNTO 1 DO
     IF MAS[I]>NEW THEN Begin NEW:=MAS[I]; K:=I;  End;
   { Перестановка местами первого и наибольшего элементов }
   MAS[K]:=MAS[1]; MAS[1]:=NEW;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(MAS[I]:4);
 END.
Вопрос: Известны данные о среднемесячной температуре за год. Определить,  какая была самая высокая температура летом и самая низкая зимой
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   MAS: ARRAY[1..12] OF REAL;
   I: INTEGER;   MIN,MAX:REAL;
 BEGIN
   ClrScr;
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO 12 DO Begin
     Write(' Введите среднюю температуру за ',I,' месяц ');   ReadLn(MAS[I]);
   End;
   MAX:=MAS[6]; MIN:=MAS[12];
   { Определение самой высокой температуры летом }
   FOR I:=7 TO 8 DO
     IF MAX<MAS[I] THEN MAX:=MAS[I];
   { Определение самой низкой температуры зимой }
   FOR I:=1 TO 2 DO
     IF MIN>MAS[I] THEN MIN:=MAS[I];
   WriteLn(' Самая высокая температура летом ',MAX);
   WriteLn(' Самая низкая температура зимой ',MIN);
 END.
Вопрос: Дан массив A, состоящий из 12 элементов. Элементы массива - произвольные   целые числа. Поменять местами значения 1 и 2 элементов, 3 и 4 и т.д.   Измененный массив вывести на экран
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A:ARRAY[0..12] OF INTEGER;
   I: BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 12 DO Begin
     A[I]:=Random(20);    Write(A[I]:3);
   End;   WriteLn;
   I:=1;
   WHILE I<=12 DO Begin
     {перестановка элементов местами, используя промежуточную переменную PP }
     PP:=A[I];   A[I]:=A[I+1];  A[I+1]:=PP;
     I:=I+2;
   End;
   WriteLn(' Значения элементов измененного массива');
   FOR I:=1 TO 12 DO
     Write(A[I]:3);
 END.
Вопрос: Дан массив целых чисел из 15 элементов, заполненный случайным образом  числами из промежутка [-20,50].
1.    Удалить из него все элементы, в записи которых есть цифра 5.
2.    Вставить число K после всех элементов, кратных своему номеру  (К вводится с клавиатуры).
3.    Поменять местами первый положительный и последний отрицательный  элементы.}
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   P,P1:ARRAY[0..15] OF INTEGER;   P2:ARRAY[0..30] OF INTEGER;
   I,J,E,D,PP,PO,FL: BYTE;   K,PRP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива P');
   FOR I:=1 TO 15 DO Begin
     P[I]:=Random(70)-20;   Write(P[I]:4);
   End;   WriteLn;
   J:=1;
   { 1. Удаление }
   FOR I:=1 TO 15 DO Begin
     E:=ABS(P[I]) mod 10;   {Выделение единиц}
     D:=ABS(P[I]) div 10;   {Выделение десятков}
     { формирование нового массива }
     IF (E<>5) AND (D<>5) THEN Begin  P1[J]:=P[I]; J:=J+1;  End;
   End;
   WriteLn(' Массив, в котором нет элементов с цифрой 5');
   FOR I:=1 TO J-1 DO
       Write(P1[I]:4);
   WriteLn;
   { 2. Вставка }
   Write(' Введите значение переменной  ');   ReadLn(K);
   J:=1;
   FOR I:=1 TO 15 DO Begin
     P2[J]:=P[I];   J:=J+1;
     IF ABS(P[I]) mod I = 0 THEN Begin P2[J]:=K; J:=J+1;  End;
   End;
   WriteLn(' Массив, в котором после элементов, кратных своему номеру, вставлено число =',K);
   For I:=1 TO J-1 DO
     Write(P2[I]:4);
   WriteLn;
   { 3. Перестановка }
   { Нахождение первого положительного и последнего отрицательного элемента }
   FL:=0;
   FOR I:=1 TO 15 DO Begin
     IF (P[I]>0) AND (FL=0) THEN Begin PP:=I;  FL:=1;  End;
     IF P[I]<0 THEN PO:=I;
   End;
   { перестановка местами первого положительного и последнего отрицательного'}
   PRP:=P[PP];   P[PP]:=P[PO];   P[PO]:=PRP;
   WriteLn(' Массив, в котором первый положительный и последний отрицательный');
   WriteLn(' поменяли местами');
   FOR I:=1 TO 15 DO
     Write(P[I]:4);
 END.
Вопрос: Отсортировать числовой массив
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=30;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I,J: BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива ');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(50);    Write(A[I]:4);
   End;   WriteLn;
   { Сортировка массива }
   FOR I:=2 TO N DO
     FOR J:=N DOWNTO I DO
       IF A[J-1]>A[J]  THEN Begin PP:=A[J]; A[J]:=A[J-1]; A[J-1]:=PP;  End;
   WriteLn(' Отсортированный массив ');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.
Вопрос: В течение недели измерялась температура три раза в день: утром, в обед и  вечером. Показания записали в таблицу размерностью 7х3. Определить среднюю  температуру за каждый день
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   T:ARRAY[0..7,0..3] OF INTEGER;
   I,J:BYTE;   S:INTEGER;   ST:REAL;   A:STRING[12];
 BEGIN
   ClrScr;   WriteLn;
   { Заполнение таблицы }
   FOR I:=1 TO 7 DO Begin
     WriteLn(' Введите показания за ',I,' день');
     FOR J:=1 TO 3 DO Begin
       CASE J OF
         1: A:=' Утром - ';
         2: A:=' В обед - ';
         3: A:=' Вечером - ';
       End;
       Write(A);    ReadLn(T[I,J]);
     End;
   End;     WriteLn;
     { Подсчет средней температуры за каждый день }
   FOR I:=1 TO 7 DO Begin
       S:=0;
       FOR J:=1 TO 3 DO
         S:=S+T[I,J];
       ST:=S/3;
       WriteLn('Средняя температура за ',I,' день = ',ST:4:1);
    End;
 END.
Вопрос: Группа из 10 учащихся сдавала экзамен по 4 предметам. Результаты    экзаменов записали в таблицу размерностью 10х4. Определить средний балл по каждому предмету
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   E:ARRAY[0..10,0..4] OF INTEGER;
   I,J:BYTE;   S:INTEGER;   SB:REAL;   A:STRING[16];
 BEGIN
   ClrScr;   WriteLn;
   { Заполнение таблицы }
   FOR I:=1 TO 10 DO Begin
     WriteLn(' Введите оценки ',I,' учащегося');
     FOR J:=1 TO 4 DO Begin
       CASE J OF
         1: A:=' Математика - ';
         2: A:=' Физика - ';
         3: A:=' Химия - ';
         4: A:=' Информатика - ';
       End;
       Write(A);   ReadLn(E[I,J]);
     End;
   End;     WriteLn;
     { Подсчет среднего балла по каждому предмету.  Циклы меняются местами.' }
    FOR J:=1 TO 4 DO Begin
       S:=0;
       FOR I:=1 TO 10 DO
         S:=S+E[I,J];
       SB:=S/10;
       CASE J OF
          1: A:=' математике - ';
          2: A:=' физике - ';
          3: A:=' химии - ';
          4: A:=' информатике - ';
       End;
       WriteLn(' Средний балл по ',A,' = ',SB:4:1);
     End;
   END.
Вопрос: Поменять местами значения К-ого и Р-ого столбцов матрицы В, размерностью MхM, заполненную случайным образом
Категория: школьный раздел
Ответы:
USES Crt;
 LABEL   M1;
 CONST   M=8;
 VAR
   A:ARRAY[0..M,0..M] OF INTEGER;
   I,J,K,P:BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной      матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO M DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(23);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Введите номера столбцов, которые необходимо поменять');
   WriteLn(' Их значения не должны превышать ',M);
   M1:ReadLn(K,P);
   IF (K>M) OR (P>M) THEN GOTO M1;
   { Перестановка значений введенных столбцов }
   FOR I:=1 TO M DO Begin
     PP:=A[I,K];     A[I,K]:=A[I,P];     A[I,P]:=PP;
   End;
   WriteLn(' Измененный двумерный массив');
   FOR I:=1 TO M DO Begin
     FOR J:=1 TO M DO Begin
       Write(A[I,J]:3);
     End;   WriteLn;
   End;
 END.
Вопрос: Дан двумерный массив размерностью 6х3, заполненный целыми числами.   Подсчитать количество строк, в которых первый элемент строки меньше нуля
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   M:ARRAY[0..6,0..3] OF INTEGER;
   I,J,K:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO 6 DO Begin
     FOR J:=1 TO 3 DO Begin
       M[I,J]:=Random(23)-10;  Write(M[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;   K:=0;
   { Подсчет количества строк, в которых первый элемент строки меньше 0 }
   FOR I:=1 TO 6 DO
     IF M[I,1]<0 THEN Inc(K);
   Write(' Количество строк, в которых первый элемент строки меньше 0 = ',K);
 END.
Вопрос: Дан двумерный массив размерностью Nх2N, заполненный целыми числами.  Найти среднее арифметическое элементов, имеющие четные номера строк
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=5;
 VAR
   H:ARRAY[0..N,0..2*N] OF INTEGER;
   I,J,K:BYTE;   S:LongInt;   SA:REAL;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO 2*N DO Begin
       H[I,J]:=Random(23);   Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение суммы значений элементов, имеющих четные номера строк }
   I:=2; K:=0;
   WHILE I<=N DO Begin
     FOR J:=1 TO 2*N DO Begin
       S:=S+H[I,J];   Inc(K);
     End;     I:=I+2;
   End;
   SA:=S/K;
   Write(' Среднее арифметическое элементов, имеющих четные номера строк =',SA:4:1);
 END.
Вопрос: Дан двумерный массив размерностью NхM, заполненный случайным образом.  Определить, есть ли в данном массиве столбец, в котором равное  количество положительных и отрицательных элементов
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=6;   M=8;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;
   I,J,KO,KP,FL:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(20)-10;  Write(A[I,J]:3);
     End;   WriteLn;
   End;   WriteLn;
   FOR J:=1 TO M DO Begin
     KP:=0; KO:=0;
     FOR I:=1 TO N DO Begin
       IF A[I,J]>0 THEN Inc(KP);
       IF A[I,J]<0 THEN Inc(KO);
     End;
     IF KP=KO THEN Begin
                     WriteLn(' В ',J,' столбце равное количество положительных и отрицательных          элементов');  FL:=1;
     End;
   End;
   IF FL=0 THEN WriteLn(' Нет столбцов, в которых равное количество положительных и отрицательных элементов');
 END.
Вопрос: Дан двумерный массив размерностью NхM, заполненный случайным образом.  Определить, есть ли в данном массиве строка, в которой ровно два  отрицательных элемента
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=6;   M=8;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;
   I,J,K,FL:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(40)-15;   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;   FL:=0;
   { Определение строк, в которых ровно два отрицательных элемента }
   FOR I:=1 TO N DO Begin
     K:=0;
     FOR J:=1 TO M DO
       IF A[I,J]<0 THEN Inc(K);
     IF K=2 THEN Begin WriteLn('В ',I,' строке ровно два отрицательных элемента');FL:=1;  End;
   End;
   IF FL=0 THEN Writeln(' Нет строк, в которых ровно два отрицательных элемента');
 END.
Вопрос: Дан двумерный массив размерностью 4х6 и величина N. Подсчитать  количество строк, в которых есть элемент равный N
Категория: школьный раздел
Ответы:
USES Crt;
 LABEL   M1;
 VAR
   M:ARRAY[0..4,0..6] OF INTEGER;
   I,J,K:BYTE;   N:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 4 DO Begin
     FOR J:=1 TO 6 DO Begin
       M[I,J]:=Random(50);    Write(M[I,J]:3);
     End;    WriteLn;
   End;   WriteLn;
   Write(' Введите значение величины N ');   ReadLn(N);
   K:=0;
   { Нахождение строк, в которых имеется величина N }
   FOR I:=1 TO 4 DO Begin
     FOR J:=1 TO 6 DO
       IF M[I,J]=N THEN Begin K:=K+1;  GOTO M1; End;
   M1: End;
   WriteLn(' Количество строк, в которых есть элемент равный ',N,' = ',K);
 END.
Вопрос: Дан двумерный массив размерностью 5х6, заполненный целыми числами.   Сформировать одномерный массив, каждый элемент которого соответственно   равен сумме элементов строк. Оба массива вывести на экран
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   H:ARRAY[0..5,0..6] OF INTEGER;   K:ARRAY[0..5] OF INTEGER;  
   I,J:BYTE;   S:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO 5 DO Begin
     FOR J:=1 TO 6 DO Begin
       H[I,J]:=Random(23);  Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение суммы элементов строк и заполнение одномерного массива }
   WriteLn(' Значения одномерного массива');
   FOR I:=1 TO 5 DO Begin
     S:=0;
     FOR J:=1 TO 6 DO
       S:=S+H[I,J];     
     K[I]:=S;     Write(K[I]:4);
   End;
 END.