Создать двумерный массив 4*4. Заполнить случайными числами в интервале от 0 до 80. Подсчитать среднее значение элементов, находящихся на главной диагонали. Все элементы матрицы, которые оказались больше этого значения, заменить на разность элемента и найденного значения. Вывести полученную матрицу. ( В Паскале, если можно

Система «Ч-М-С» применяется для анализа условий жизнедеятельности человека и для разработки защитных мер, обеспечивающих безопасность человека. Возможны следующие условия жизнедеятельности:

комфортные- условия, когда все элементы системы «Ч-М-С» обеспечивают объективное состояние и субъективное чувство удовлетворения человека при безопасной жизнедеятельности;

некомфортные- условия, когда состояние хотя бы одного из элементов системы «Ч-М-С» существенно отклоняется от нормы;

невыносимые- условия, созданные элементами системы «Ч-М-С», в которых человек не может существовать.

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

Материал был взят с сайта: https://studfile.net/preview/6388105/page:6/

№1

Program z1;

var N:integer;

Begin

write ('Введите число N: ');

readln(N);

if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');

end.

№2

Program z2;

var a, b, c, k:integer;

Begin

k:=0;

writeln ('Введите числа a, b и c: ');

readln(a,b,c);

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

write('Количество отрицательных чисел: ',k)

end.