Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
begin
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
for i:=1 to 8 do
begin
if B[i]>0 then
Write(B[i],' ');
end;
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению
В объяснении
Объяснение:
program zadacha;
const n= 6; m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
