Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
const n=10;
Var i : integer;
a : array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100+1)-50;
end;
for i:=1 to n do
begin
if a[i]<0 then a[i]:=a[i]+20;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
800 × 600 × 8 / (1024 × 1875)<span> = </span><span>2
N = 2^i
N= 2^2 = 4
4 цветов</span>
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.