Pascal

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

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

    дана квадратичная матрица порядка N. в матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали..
    Код (Delphi):
    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 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Delphi):
    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 *

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

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

    Dock1100 :-]

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

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

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