Для матрицы 6х6 (36 элементов):
const n=6;
var
a:array[1..n,1..n] of integer;
i,j,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51);
write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
for i:=2 to n do
if a[i,i]>max then max:=a[i,i];
writeln('max = ',max);
end.
Пример:
Исходный массив:
32 14 6 10 45 8
39 31 5 28 18 15
3 19 19 18 35 0
42 27 36 28 8 10
5 13 40 10 41 10
35 12 18 17 31 4
max = 41
<span>Винни-Пух любит мед как никто другой
</span><span>Винни-Пух любит мед как я люблю плакать
</span><span>дверь в дом открыта но Вини не идет кушать мед</span>
Вы ввели число: 17318 в восьмеричной системе счисления и хотите перевести его в двоичную.
Для этого переведем его сначала в десятичную вот так :
17318 = 1∙83+7∙82+3∙81+1∙80 = 512+448+24+1 = 98510
Получилось: 98510
Переведем 98510 в двоичную систему вот так:
Целая часть числа находится делением на основание новой
9852-98449221-49224620-24612320-1226121-603021-301520-14721-6321-211
Получилось:98510 = 11110110012
Результат перевода:
17318 = 11110110012
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub
Компьютер играет значимую роль в нашей жизни. Мы на нём можем смотреть полезную информацию, сохранять файлы с нужной для нас информацией и передавать информацию другим пользователям. Компьютер
-это поле для деятельности/работы человека.На нём мы можем даже ПРОГрАМИРОВАТЬ и помогать людям, допустим приложение Znanija.com.
(вы довольны?)
