1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

Pascal

Тема в разделе "Pascal and Delphi", создана пользователем -, 9 июн 2010.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    дана квадратичная матрица порядка 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.

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

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    Код:
    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.
     
  3. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    8
    мб real или какой там сейчас в паскале вещественный тип популярный?
    или round?

    Добавлено: Можно и сумму s делать вещественным типом, если есть угроза переполнения диапазона integer для суммы.
     
  4. Dock1100

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    Незаметил.(уже исправил)
     
  5. Гость

    Репутация:
    0
    ;) спасибо большое вам!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей