Массив. Сумма нечетных элементов строки

22.12.2012, 20:22. **Показов** 574. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Pascal

Program z;
type mas=array[1..9,1..6] of integer;
var
a:mas;
Procedure vvod(var x:mas);
var c,k:integer;
begin
randomize;
for c:=1 to 9 do
for k:=1 to 6 do
x[c,k]:=random(10)-5;
end;
procedure vivod(var x:mas);
var
c,k:integer;
begin
for c:=1 to 9 do
begin
for k:=1 to 6 do
write(x[c,k]:5);
writeln;
end;
end;
function summa(x:mas):integer;
var
c:integer;
s:integer;
begin
s:=0;
for c:=1 to 9 do
if x[4,c] mod 2=1
then s:=s+x[4,c];
summa:=s;
end;
begin
vvod(a);
vivod(a);
writeln('summa nechetnih elementov 4 stroki=',summa(a));
end.

Выходит ошибка. Что нужно изменить???

@Zhexon · 22.12.2012, 23:11

Сообщение от хоттабыч12

function summa(x:mas):integer;
var
c:integer;
s:integer;
begin
s:=0;
for c:=1 to 9 do
if x[4,c] mod 2=1
then s:=s+x[4,c];
summa:=s;
end;

Pascal

function summa(x:mas):integer;
var
c:integer;
s:integer;
begin
s:=0;
for c:=1 to 6 do  //исправлено. у тебя в 4 строке только 6 элементов ( 9 строк )
if ODD(x[4,c]) then s:=s+x[4,c]; // подкорректировано
summa:=s;
end;

	22.12.2012, 23:11