Процедура

@Xo6ut · Регистрация: 04.11.2011

Студворк — интернет-сервис помощи студентам

Есть код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Var
  x: Array [1..10,1..10] of Integer;
  k,sredA: real;
n,i,j,s: Integer;
BEGIN
Write('N=');
Readln(n);
writeln('Vvedite matricu');
s:=0;
k:=0;
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    read(x[i,j]);
    If (i=j)   Then
    begin
      s:=s+x[i,j];
      k:=k+1;
      sredA:=s/k;
    end;
  end;
 end;
Writeln('Сумма  элементов гл. диагонали = ',s);
Writeln('Ср. арифм.  элементов гл. диагонали = ',sredA:5:5);
if sredA>0 then
for i:=1 to n do
write(x[1,j]);
Readln ;
END.

Нужно подправить его(нужно, чтобы печатал первую строку, если сред арифм эл гл диагонали больше 0) и запихнуть в процедуру(в процедуре будет весь код, а в основной программе я буду вводить только размер матрицы и соответственно вывод процедуры), помогите пожалуйста.

@Apostol584 · 18.11.2013, 02:06

Вот мой вариант с использованием динамических массивов

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
type
  TMas = array [,] of Integer;
 
var
  x: TMas;
  n: Integer;
 
procedure print(var mas: TMas);
var
  i, j: integer;
  sum: real;
 
begin
  writeln('Введите матрицу');
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
    begin
      write('Mas[', i + 1, ', ', j + 1, '] = ');
      readln(mas[i, j]);
    end;
  sum := 0;
  for i := 0 to N - 1 do
    sum := sum + mas[i, i];
  Writeln('Сумма  элементов гл. диагонали = ', sum);
  Writeln('Ср. арифм.  элементов гл. диагонали = ', (sum / N):5:5);
  if sredA / N > 0 then
    for i := 0 to N - 1 do
      write(mas[0, i], ' ');
end;
 
begin
  Write('N=');
  Readln(n);
  SetLength(x, n, n);
  print(x);
end.

Без динамических массивов

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
const N = 3;//размер массива
 
type
  TMas = array [0..N,0..N] of Integer;
 
var
  x: TMas;
 
procedure print(var mas: TMas);
var
  i, j: integer;
  sum: real;
 
begin
  writeln('Введите матрицу');
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
    begin
      write('Mas[', i + 1, ', ', j + 1, '] = ');
      readln(mas[i, j]);
    end;
  sum := 0;
  for i := 0 to N - 1 do
    sum := sum + mas[i, i];
  Writeln('Сумма  элементов гл. диагонали = ', sum);
  Writeln('Ср. арифм.  элементов гл. диагонали = ', (sum / N):5:5);
  if sum / N > 0 then
    for i := 0 to N - 1 do
      write(mas[0, i], ' ');
end;
 
begin
  print(x);
end.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Процедура

Решение