Значит так...очередная нудная программа с простым алгоритмом.
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test;
uses crt;
var
arr:array[1..8,1..8] of integer;
i,j,cou,pr,s,sum:integer;
begin
clrscr;
randomize;
pr:=1;
s:=7;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
arr[i,j]:=random(127)+2;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (arr[i,j]>18) and (arr[i,j]<60) then
begin
cou:=cou+1;
arr[i,j]:=0;
end;
if i=j then
begin
pr:=pr+arr[i,j];
write(arr[i,j],' ');
end;
if j=s then
sum:=sum+arr[i,j];
end;
writeln;writeln;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(arr[i,j],' ');
writeln;
end;
writeln;
writeln(cou);
writeln(pr);
writeln(sum);
readln;
end.
112.
C:\Литература\Поэзия\Пушкин.doc
БГАГЕГВД.
113.
D:\Программы\Игры\Стратегии\Фараон
114.
D:\Уроки\Алгебра\Квур.txt (Я не понял что это за слово.)
115.
E:\География\Фото\Днепр.jpg
116.
3)
117.
Попробую объяснить.
Иерархия:
1)МИН и MAX -- вверх.
2.1)1 -- ниже в папке МИН.
2.2)11 -- ещё ниже, соединён с 1. (ты понимаешь о чём я.)
3)2 -- рядом с папкой 1.
118.
Голливуд.
119.
D:\Лето\Фото\125.jpg
120.
Я не понял что за буква, но выглядит ответ примерно так: a.bmp
16 килобайт
Решение:
► 217 разделить на 23 = получаем 217-3 = 214 байта
► 214 разделить 210 = 214-10 = 24 = 16 Килобайт
Атос & (Портос | Арамис) = (Атос & Портос) | (Атос & Арамис)
Формула включений-исключений
P(Атос&Портос | Атос&Арамис) = P(Атос & Арамис) + P(Атос & Портос) - P(Атос & Арамис & Атос & Портос) = 235 + 335 - 120 = 450
Этика - наука, изучающая нормы поведения между человека в обществе