var a: array[1..3,1..4] of integer; i,j,s: integer; begin for i:=1 to 3 do begin write('строка ',i,': '); for j:=1 to 4 do read(a[i,j]); end; // вывод массива на экран writeln('массив а по строкам:'); for i:=1 to 3 do begin for j:=1 to 4 do write(a[i,j]:4); writeln; end; // суммы элементов по строкам for i:=1 to 3 do begin s:=0; for j:=1 to 4 do s:=s+a[i,j]; writeln('сумма элементов строки ',i,': ',s); end; end.
ввод - вывод
строка 1: 10 11 12 13 строка 2: 14 15 16 17 строка 3: 18 19 20 21 массив а по строкам: 10 11 12 13 14 15 16 17 18 19 20 21 сумма элементов строки 1: 46 сумма элементов строки 2: 62 сумма элементов строки 3: 78
//Pascal var A: array [1 .. 5, 1 .. 5] of integer; i, j, SUM: integer; begin randomize; writeln(' ***Исходная матрица***'); for i := 1 to 5 do begin for j := 1 to 5 do begin A[i, j] := random(50); if j >= i then SUM := SUM + A[i, j]; write(A[i, j]:4); end; writeln; end; writeln; writeln('Сумма элементов = ', SUM); writeln; writeln(' ***Измененная матрица***'); for i := 1 to 5 do begin for j := 1 to 5 do begin if i = j then A[i, j] := 1; write(A[i, j]:4); end; writeln; end; readln; end.
PascalABC.NET
begin
var (a, b) :=
ReadInteger2('Укажите координаты начала и конца отрезка:');
var x := ReadInteger('Укажите координату точки А:');
if x.InRange(a, b) then
Println('Точка принадлежит отрезку')
else
Println('Точка не принадлежит отрезку')
end.