Uses Crt; const n=5; m=7; type Mas = array [1..n, 1..m] of integer; var i, j, j1, j2: integer; Sumj1, Sumj2: real; A: Mas; begin ClrScr; Randomize; SumJ1:=0; SumJ2:=0; for i:=1 to n do for j:=1 to m do A[i,j]:=random (10); WriteLn (' Massiv A: '); for i:=1 to n do begin for j:=1 to m do Write (A[i,j]:4); WriteLn; end; WriteLn; repeat Write (' Stolbez #1 = '); ReadLn(j1); until (j1>=1) and (j1<=m); repeat Write (' Stolbez #2 = '); ReadLn(j2); until (j2>=1) and (j2<=m) and (j1<>j2); for i:= 1 to n do SumJ1 := SumJ1+A[i,j1]; for i:= 1 to n do SumJ2:=SumJ2+A[i,j2]; SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; WriteLn; WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2); WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); ReadLn; end.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin for var a:=1 to 10 do begin Writeln('Длина стороны ',a,' см'); for var b:=1 to 10 do Writeln('Вторая сторона ',b:2,', периметр ',2*(a+b):2, ', площадь ',a*b:3) end end.
Результат Длина стороны 1 см Вторая сторона 1, периметр 4, площадь 1 Вторая сторона 2, периметр 6, площадь 2 Вторая сторона 3, периметр 8, площадь 3 Вторая сторона 4, периметр 10, площадь 4 Вторая сторона 5, периметр 12, площадь 5 Вторая сторона 6, периметр 14, площадь 6 Вторая сторона 7, периметр 16, площадь 7 Вторая сторона 8, периметр 18, площадь 8 Вторая сторона 9, периметр 20, площадь 9 Вторая сторона 10, периметр 22, площадь 10 Длина стороны 2 см Вторая сторона 1, периметр 6, площадь 2 Вторая сторона 2, периметр 8, площадь 4 Вторая сторона 3, периметр 10, площадь 6 Вторая сторона 4, периметр 12, площадь 8 Вторая сторона 5, периметр 14, площадь 10 Вторая сторона 6, периметр 16, площадь 12 Вторая сторона 7, периметр 18, площадь 14 Вторая сторона 8, периметр 20, площадь 16 Вторая сторона 9, периметр 22, площадь 18 Вторая сторона 10, периметр 24, площадь 20 Длина стороны 3 см Вторая сторона 1, периметр 8, площадь 3 Вторая сторона 2, периметр 10, площадь 6 Вторая сторона 3, периметр 12, площадь 9 Вторая сторона 4, периметр 14, площадь 12
Длина стороны 10 см Вторая сторона 1, периметр 22, площадь 10 Вторая сторона 2, периметр 24, площадь 20 Вторая сторона 3, периметр 26, площадь 30 Вторая сторона 4, периметр 28, площадь 40 Вторая сторона 5, периметр 30, площадь 50 Вторая сторона 6, периметр 32, площадь 60 Вторая сторона 7, периметр 34, площадь 70 Вторая сторона 8, периметр 36, площадь 80 Вторая сторона 9, периметр 38, площадь 90 Вторая сторона 10, периметр 40, площадь 100
Да это может оценки по урокам нажми край и двигай к другому краю