• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Pascal

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

дана квадратичная матрица порядка N. в матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали..
Код:
program z_14;
uses crt;
var a:array[1..50,1..50] of integer;
n,i,j,s,sr:integer;
begin
clrscr;
write('vv kol-vo strok i stolbcov');
readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
begin
if i=j then
s:=s+a[i,j];
end;
sr:=s/n;
writeln ('sr. arifm.= ',sr);
readln;
end.


выдает ошибку в строке
помогите пожалуйста исправить эту ошибку
 
D

Dock1100

Код:
program z_14;
uses crt;
const n=5;		{///////////////////////////}
var a:array[1..n,1..n] of integer;
n,i,j,s:integer;
sr:real;

begin

clrscr;
write('vv kol-vo strok i stolbcov');
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
s:=0;
for i:=1 to n do					 {///////////////////////////}
s:=s+a[i,i];

sr:=s/n;
writeln ('sr. arifm.= ',sr:8:2);
readln;
end.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!