Двумерный массив

[mislagusla]

Зависла, не знаю как дальше посчитать элементы массива.
подскажите пож-та. Исходные данные во вложении №18

Uses WinCRT;
var i,j:integer;
var a:array[1..2,1..7] of real;
begin
for i:=1 to 2 do
 for j:=1 to 7 do
begin
write('кол-во часов='); read(a[i,j]);
end;
 for i:=1 to 2 do
 begin
 for j:=1 to 7 do
 write(a[i,j]:8:2); writeln
 end;
 readln;
 end.

Замечание модератора: Используйте тег [CODE]

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;


var i,j:integer;
var a:array[1..2,1..7] of real;
begin
randomize;
for i:=1 to 2 do begin
for j:=1 to 7 do
begin
a[i,j]:=random(10);
write(a[i,j]:6:2, ' ');
end;
writeln;
end;
readln;

end.

[mislagusla]

а как вычислить сумму по строкам?

[Veselyn]

Сообщение от mislagusla

а как вычислить сумму по строкам?

for i:=1 to 2 do begin
for j:=1 to 7 do
a[i,j]:=a[i,j]+a[i,j+1];

[mislagusla]

нифига не получается напишите продолжение моего

[ОДИНОЧЕСТВО В СЕТИ]

нате и мой вам совет идите в кулинарию

uses
  Crt;
type worker = record   {Рабочие}
         ln:string;    {Фамилия}
         t:Double;      {Тариф}
end;
var
  f:array[1..100] of worker; {массив записей}
  n,i,j:Integer;
  g:array[1..100,1..7] of Double;{2-мерный массив-график рабочего времени}
  s:Double;                       { сумма по строкам}
function dayofWeek( k:integer):string;{Определение дня недели}
  begin
    case k of
      1:Result:='monday';
      2:Result:='tuesday';
      3:Result:='wednesday';
      4:Result:='thursday';
      5:Result:='friday';
      6:Result:='saturday';
      7:Result:='sunday';
    end;
  end;
begin
  Writeln('--Made in WWW.Programmersforum.ru--');
  Writeln('input number of workers:');
  Readln(n);    {ввод количства рабочих}
  for i:=1 to n do begin
   Writeln('input lastname of ',i,' workers');{Ввод фамилии}
   Readln(f[i].ln);
   Writeln('input tarif of ',i,' workers');{Ввод тарифа}
   Readln(f[i].t);
   end;
  {если нужен случайный ввод раскоментить блок  и удалить блок от //1 до //!1}
    {for i:=1 to n do
  for j:=1 to 7 do
  g[i,j]:=random(8+1);}

//1
  {Заполняем график рабочего времени}
 for i:=1 to n do
  for j:=1 to 7 do begin
    Writeln ('How many hour ',f[i].ln,' work in ',dayofweek(j),' ?');
    Readln(g[i,j])
  end;
//!1
  clrscr;


 {Выводим график рабочего времени}
  Writeln('----Chart of worktime--');
  for i:=1 to n do begin
    write (f[i].ln,'  ');
    for j:=1 to 7 do
      write (g[i,j]:4:1,'   ');
    Writeln;
  end;
  {находим сумму к оплате за неделю и выводим}
  Writeln('----Total:------------');
    for i:=1 to n do begin
    write (f[i].ln,'  ');
    s:=0;
    for j:=1 to 7 do
      s:=s+g[i,j];    {сумма по строкам}
    s:=s*f[i].t;      {Сумма *тариф i-того рабочего}
    write (s:6:2);
    Writeln;
  end;
  Writeln('Input ENTER for Exit'); {Жмите Enter для выхода}
  Writeln('---Knowledge is power---');{Знание - сила}
  Readln;
end.

[mislagusla]

итак в институт пищевой промышленности поступила

что-то на оператор case ругается

[Stilet]

что-то на оператор case ругается

Ругань в студию.

[mislagusla]

попробуйте кто-нибудь откомпилировать программу, и укажите ошибку. спасибо

[ОДИНОЧЕСТВО В СЕТИ]

замените все result на dayofweek а все типы double на real