Задачи на Pascal

[mid654]

1.Дана квадратная матрица A(N,N). Составить программу подсчета количества нечетных элементов, расположенных ниже главной диагонали.

2.Массив целых чисел из 12 элементов заполнить слу4айным обра3ом. Найти коли4ество и сумму 4етных элементов массив,вывести полу4енный ре3ультат.

помогите сделать

[Вадим Мошев]

помогите сделать

чем конкретно?

[mid654]

решить________

[Вадим Мошев]

Вам оказать помощь или вам просто надо решение?

[mid654]

и то и другое )

[Sciv]

Давайте начнем с простого: задайте паскалевский массив

[Mad_Cat]

Дана квадратная матрица A(N,N). Составить программу подсчета количества нечетных элементов, расположенных ниже главной диагонали.

var a:array[1..150,1..150] of integer;
i,j,n:byte;
count:integer;
begin
readln(n)
count:=0;
for i:=1 to n do begin
for j:=1 to n do
begin
a[i,j]=random(n*n)-n;
if (i>j) and odd(a[i,j]) then inc(count);
write(a[i,j]:5);
end;
writeln;
end;
writeln(count);
end;
end.

.Массив целых чисел из 12 элементов заполнить слу4айным обра3ом. Найти коли4ество и сумму 4етных элементов массив,вывести полу4енный ре3ультат.

var a:array[1..12] of integer;
i,j:byte;
s:integer;
begin
j:=0;s:=0;
for i:=1 to 12 do
begin
a[i]:=random(12)+1;
if not odd(a[i]) then 
begin
inc(s,a[i]);
inc(j)
end;
write(a[i]:3);
end;
writeln;
writeln(j);
writeln(s);
end.

[Serge_Bliznykov]

if i<j and odd(a[i,j]) then inc(count);

это количество нечётных элементов ВЫШЕ главной диагонали!
нужно i>j

[mid654]

спс болшое