Курсовая работа: Основы программирования и алгоритмизации

writeln ('Сумма элементов ниже главной диагонали:',S:7:2);

writeln ('Произведение элементов выше главной диагонали:',Pr:7:2);

writeln ('Количество элементов на главной диагонали в интервале [-1;1]',K);

readln();

end.

Решение:

Приложение 4

Текст программы к Заданию №4

program Zadanie4;

const

M1=[1,2,3];

M2=[1,4,2,5];

var

M3: set of byte;

begin

writeln ('Даны множества М1(1,2,3), M2(1,4,2,5) и М3=М1*М2');

M3:=M1*M2;

if 1 in M3 then writeln ('1 есть в множестве М3')

else writeln ('1 нет в множестве М3');

if 2 in M3 then writeln ('2 есть в множестве М3')

else writeln ('2 нет в множестве М3');

readln;

end.

Решение:

Приложение 5

Текст программы к Заданию №5

program Zadanie5;