Дан двухмерный массив целых чисел. определить : а) сумму элементов массива, больших 30. б) количество нечетных элементов массива в) среднее арифмитическое четных элементов массива г) сумму тех элементов массива, сумма индексов которых равна р.

// PascalABC.Net 3.0, версия 1066
const
  mm=50;
  nn=50;
var
  n,m,i,j,k1,k2,p:integer;
  s1,s2,s3:longint;
  a:array[1..mm,1..nn] of integer;
begin
  Write('Число строк и столбцов массива: '); Read(m,n);
  Write('Значение p: '); Read(p);
  Writeln('*** Сгенерированный массив ***');
  Randomize;
  s1:=0; s2:=0; s3:=0; k1:=0; k2:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(101)-50;
      Write(a[i,j]:4);
      if a[i,j]>30 then s1:=s1+a[i,j];
      if Odd(a[i,j]) then Inc(k1)
      else begin s2:=s2+a[i,j]; Inc(k2) end;
      if i+j=p then s3:=s3+a[i,j]
      end;
    Writeln
  end;
  Writeln('Сумма элементов массива, больших 30: ',s1);
  Writeln('Количество нечетных элементов массива: ',k1);
  Writeln('Среднее арифметическое четных элементов массива: ',s2/k2);
  Writeln('Сумма элементов массива c суммой индексов ',p,': ',s3)
end.

Тестовое решение:
Число строк и столбцов массива: 8 10
Значение p: 13
*** Сгенерированный массив ***
 -19 -39 -46  12  41  44 -44  21  11  25
  13 -22   2  36  21 -42  34  15   5  25
  -6  -3 -33 -29  47 -44  33   5  27  23
  14  46  39 -35 -39  -1 -50  49   1  13
  -4 -14  28  40 -34  48   0  -9 -36  12
  -4 -20  35  45 -21  35  44  33  15  34
 -40   2  44  38 -40  18 -11 -14  24 -28
 -42  36 -37  42 -21 -43  19 -22 -45  49
Сумма элементов массива, больших 30: 892
Количество нечетных элементов массива: 40
Среднее арифметическое четных элементов массива: 1.15
Сумма элементов массива c суммой индексов 13: 56

Во первых хочу заметить, что в реальном мире однозначно односторонних не бывает, особенно если дело касается живого

1) Источник: учебник Приемник: школьник.

2) Источник: письмо Приемник: бабушка.

3) Источник: будильник Приемник: мальчик.

7) Источник: газета Приемник: человек.

8) Источник: лист изменений Приемник: ученики. ??

10) Источник: знак Приемник: водители

11) Источник: билет Приемник: мальчик.

Все эти ситуации однотипные, односторонние по типу. Хотя конечно приемник может влиять на книгу/газету и тп, но информация в ней от этого не изменится

9) Источник: диспетчер. Приемник: пассажиры. ??

Вообще говоря случай односторонний, но возможно влияние на то что скажет диспечер. Например кто-то придет и скажет, что потерял ребенка и диспечер объявит об этом на всю станцию.

4) Источник: Таня, Лена Приемник: Таня, Лена. Двусторонний (и так все понятно)

5) Источник: учитель Приемник: класс

Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп

6) Источник: регулировщик Приемник: водители, пешеходы

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

Объяснение:

Тест по теме « Мои первые программы»

Какое из названий не является языком программирования?

г) WORD

Что используется в качестве разделителей в языке Pascal?

в) точка с запятой

Перечислите операции , допустимые в типе Integer

+, -, :, *, //,#.

Какой из приведенных ниже примеров не соответствует определению лексической единице « идентификатор»?

б) 1х

Определить, какие из ниже следующих констант относится к целым типам ?

в) 3333

Извиняюсь, на 7, 8, и 10 ответ не знаю (

8. Найдите синтаксические ошибки .

program p

begin

writeln ('я хочу знать информатику')

еnd

9. Сравните вещественные числа:

56.74е+3 > 56.74е-3

0.276е+4 > 276е+1

11.Написать программу для вычисления по следующей формуле:

у= x^3+2х+3

(Python script)

y = x^3+2х+3

print (y)