<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Mas=array[,] of integer;
procedure GetMas(s:string; var a:Mas);
begin
Writeln('*** Массив ',s,' ***');
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
a:=ReadMatrInteger(n,m)
end;
function SumDiag(a:Mas):integer;
begin
Result:=0;
for var i:=0 to Min(a.RowCount,a.ColCount)-1 do Result+=a[i,i]
end;
begin
var a,b,c:Mas;
GetMas('A',a);
GetMas('B',b);
GetMas('C',c);
Writeln('Общая сумма элементов главных диагоналей равна ',
SumDiag(a)+SumDiag(b)+SumDiag(c))
end.
<u>Пример</u>
*** Массив A ***
Количество строк в массиве: 3
Количество столбцов в массиве: 4
Вводите элементы массива
-33 -50 34 -41
-31 10 37 31
32 -49 -32 -27
*** Массив B ***
Количество строк в массиве: 2
Количество столбцов в массиве: 2
Вводите элементы массива
-22 35
0 11
*** Массив C ***
Количество строк в массиве: 3
Количество столбцов в массиве: 2
Вводите элементы массива
23 38
17 -8
16 -1
Общая сумма элементов главных диагоналей равна -51
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger;
var a:=ReadArrInteger(n);
var p:=a[0]; Print(p);
for var i:=2 to a.Length-1 do
if a[i]>p then begin p:=a[i]; Print(p) end;
end.
<u>Пример</u>
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87
var
a, b: real;
begin
writeln('введите длину');
readln(a);
writeln('введите ширину');
readln(b);
writeln('периметр прямоугольника ', 2 * (a + b));
end.
Отношения между объектами - диаграммы Эйлера-Венна
Объект-фотографии
Стоимость объекта -числа
Р. об.- эскиз
Ф. р. об. - чертежа
Эл. с. об. -схемы
Цв. об.-рисунка