//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
Достоинства
передавать файлы в виде обычных и форматированных текстов, изображений, аудио и видео файлов и пр.
Свободное восприятие и легкое запоминание людьми адресов с указанием имен пользователя и доменов.
Непосредственное обращение серверов друг к другу без внешнего вмешательства
Доставка сообщений с высокой степенью надежности.
Передача сообщений с большой скоростью.
Удобство и легкость восприятия людьми и программами.
Недостатки
Периодически возникающие задержки доставки писем, которые могут составлять от нескольких часов до дней.
Практика ограничений персональных размеров сообщений и их суммарного объема в почтовом ящике пользователя.
Сложность противодействия массовым рекламным и вирусным рассылкам, мешающим работе пользователей.
Недостаточная защищенность от несанкционированного проникновения в почту, взломы почтовых ящиков и программ.
var
i, j, k : Byte;
begin
Writeln('трехзначные числа где есть 2 од. цифры:'); for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i = j) or (j = k) or (i = k) then Writeln(i, j, k);
Readln;
end.
Пробел = TAB (который перед строкой)