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

1) Читай правила форума
2) Пользуйся поиском.

klem4 подскажи,куда мне написать вопрос.В какую тему.Немогу разобраться.

Уже написал... В следующий раз называй тему как положено...

держи

{$n+}
uses crt;
const n=4;
type
  arrT = array[1..n,1..n] of extended;
var
   a:arrT;
   i,j:integer;

function sum(x:arrT;r:integer):extended;
var s:extended;
      i,j:integer;
begin
   s:=0;
   for j:=1 to n do
    s:=s+x[r,j];
   sum:=s;
end;

Begin
   clrscr;
   for i:=1 to n do
    for j:=1 to n do
     begin
        write('x[',i,',',j,']=');
        readln(a[i,j]);
     end;

   for i:=1 to n do
    begin
       writeln;
       for j:=1 to n do
        write(a[i,j]:4 :1,'   ');
    end;
  writeln('s=',sum(a,1):2 :2);
    readln;
    end.

klem4 большое спасибо.Сможешь сделать к этой программе блок схему пожалуйста

б/c ф-ции

:low:

klem4 программу набрал.Почему то пишет ошибку после S:=0;
Что там может быть.

думаю это из-за ошибки в 12 строке .... :D

какая ошибка то ?

:D Твоя любимая... "Переменная цикла должна быть локальной"

Вот,что пишет Error 116: Must be in 8087 mode to compile this
Если на понял,попробуй себе набрать на паскале и станет всё ястно.
И ещё что такое arrT и extended

Скажите эта программа решена с использованием Функции(мне надо,что бы было с функцией)

Быть не может - для этого {$n+} стоит первой строкой, чтобы этой ошибки не возникало...


У меня например компилируется "на ура"... А ты попробуй представить, что есть не только Turbo Pascal, а еще и другие компиляторы. Ты каким пользуешься?


А это тебе в книжках читать нужно ...

volvo да всё работает.Это я ошибся спасибо.И как можно ещё решить эту программу с использованием Function.