Слушай как написать сочинение на 11 или 12 главное успокоиться если ты нервничаешь ты можешь написать коряга или можешь написать мне ту букву ошибиться и так далее так что первым делом Успокойся дальше ты на сначала напиши где происходила твоя история а потом напиши краткое содержание главных героев и конечно же Допиши концовку там где ты напишешь последние заканчивающие приложение которые будут ремень законченные смысл
Это может обычный виндосовский калькулятор 54.615(10) = 110110.10011101011100001010001111010111000010100011110101(2)
ШУМ-ГАМ
ЖАРА-ТЕПЛО
БЕДА-ГОРЕ
МОРОЗ-ХОЛОД
ПУРГА-МЕТЕЛЬ
ГРУСТЬ-ТОСКА
ПРОЧНЫЙ-КРЕПКИЙ
ПРОСИТЬ-МОЛИТЬ
СМЕЯТЬСЯ-ХОХОТАТЬ
НЕБОЛЬШОЙ-МАЛЕНЬКИЙ
БАЛОВАТЬСЯ-ШАЛИТЬ
ДОДУМАТЬ-ДОДЕЛАТЬ
<span>1)Program massiv;
</span>
<span>Var mas:array[</span>1..20<span>] of </span>integer;
a,b,i,sum:integer;
<span><span>Begin
</span></span>
sum:=0;
<span>For i:=</span>1 To 20 Do
<span>
begin
</span>
mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
<span>
end;
</span>
Writeln('Введите a,b');
<span>
Readln(a,b);
</span>
<span>For i:=</span>1 To 20 Do
<span>
begin
</span><span>if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
end;
Writeln(sum);
end. 2) <span>Program massiv;
</span><span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span></span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(15);
write(mas[i],' ');<span>
end;
Writeln;
</span>min:=30000;
max:=0;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span><span>if mas[i]>max Then max:=mas[i];
if mas[i]<min Then min:=mas[i];
end;
pr:=min*max;
Writeln(pr);
end. </span> 3)<span>Program massiv;</span>Var mas:array[1..20] of integer; a,b,i,k:integer;<span><span>Begin</span></span>For i:=1 To 20 Do<span><span>begin </span></span>mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');<span>end;</span>Writeln('Введите a,b,k');<span>Readln(a,b,k);</span>i:=1;While i<>20 Do<span><span>begin</span></span>if (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;<span>end; end. </span>4)<span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span>randomize;
</span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(100)+1;
write(mas[i],' ');<span>
end;
Writeln;
</span>pr:=1;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span>pr:=pr*mas[i];<span>
end;
Writeln(pr);
end. </span>
</span>
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
Randomize;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to n do a[i,i]:=0;
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица
-19 15 42 44 32 41 -11 -21 14 -29
33 -8 -21 -33 -38 28 21 43 39 -46
-1 33 13 23 -38 32 -25 -26 43 41
7 6 39 14 48 37 -3 -3 -2 -41
-26 40 -38 -24 16 43 -17 3 7 7
37 20 17 44 28 -2 -49 -32 32 -50
16 -35 -14 23 14 -23 3 15 -31 -24
-19 -26 -5 30 30 9 20 -13 -43 -30
-2 22 17 -15 -46 38 39 46 37 -1
36 -22 15 -2 -7 -41 3 -10 12 -12
Результирующая матрица
0 15 42 44 32 41 -11 -21 14 -29
33 0 -21 -33 -38 28 21 43 39 -46
-1 33 0 23 -38 32 -25 -26 43 41
7 6 39 0 48 37 -3 -3 -2 -41
-26 40 -38 -24 0 43 -17 3 7 7
37 20 17 44 28 0 -49 -32 32 -50
16 -35 -14 23 14 -23 0 15 -31 -24
-19 -26 -5 30 30 9 20 0 -43 -30
-2 22 17 -15 -46 38 39 46 0 -1
36 -22 15 -2 -7 -41 3 -10 12 0
