Определить количество работников, заработная плата которых за месяц с номером 1 составила больше 6000 руб.

Сделайте на В двумерном массиве B, cостоящем из N строк и M столбцов, находятся размеры начисленной заработной платы N работников предприятия за M месяцев, т. е B[I,K] - это заработная плата работника предприятия с номером I за месяц с номером K.

Составить программу, позволяющую выполнить следующее:

- вывести с клавиатуры количество работников и количество месяцев, а также размер заработной платы

- выполнить задание в соответствии с номером варианта

- провести расчёты для N=4, M=3 и следующих значений заработной платы

хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз

7-3-3

var

 a, b: integer;

begin

 Writeln('Введите 2 числа:');

 Read(a, b);

 Writeln('Сумма чисел: ', a + b);

 Writeln('Разность чисел: ', a - b);

 Writeln('Целочисленное деление: ', a div b);

 Writeln('Остаток от деления: ', a mod b);

end.

7-3-5

var

 n: integer;

begin

 Writeln('Введите N: ');

 Read(n);

 if n mod 2 = 0 then

   Writeln('Следующее четное: ', n+2)

 else Writeln('Следующее четное: ', n + 1);

end.

КуМир

алг

нач

цел a,c

ввод a

c:=mod(a,2)

если c=0

то

вывод a+2

иначе

вывод a+1

все

кон