Простой массив Опции

[-Ostin-]

дан двух мерный массив С(i,j) i=1,2,....,10, j=1,2,........,20, состоящий из вещетвеных чисел, составить алгоритм и программу подсчета суммы элементов находящихся в четных строках массива
результат представить ввиде веторных чисел


из-за этой задачи я завалил экзамен

[volvo]

Компилятор тебе на что?

program eczamen;
uses crt;
var
  c:array [1..10,1..20] of real;
  a:array [1..5] of real;
  i,j: integer; { <--- Здесь особенно внимательно }
begin
  for i:=1 to 10 do
    for j:=1 to 20 do begin
      write ('vvedite element [',i,',',j,'] massiva'); { <--- и здесь тоже }
      readln (c[i,j]);
    end;

  for i:=1 to 5 do begin
    a[i]:=0;
    for j:=1 to 20 do
      a[i]:=a[i]+c[i*2,j];
  end;

  for i:= 1 to 5 do
    writeln (a[i]);
end.