program spk;
var i,s,k:integer;
p:real;
a:array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(81)-30;
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do if i mod 2 = 0 then s:=s+a[i];
p:=1;
for i:=1 to 10 do if a[i] < 0 then p:=p*a[i];
for i:=1 to 10 do if a[i] mod 2 <> 0 then k:=k+1;
write('s = ',s,' p = ',p,' k = ',k);
end.
Объяснение:
program spk;
var a:array [1..10] of integer;
i,s,k:integer;
p:real;
begin
p:=1;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(81)-30;
write(a[i],' ');
if i mod 2 = 0 then s:=s+a[i];
if a[i] < 0 then p:=p*a[i];
if a[i] mod 2 <> 0 then k:=k+1
end;
writeln;
writeln('Сумма элементов массива, с четными номерами, равна ',s);
writeln('Произведение отрицательных элементов равно ',p);
writeln('Количество нечётных элементов равно ',k)
end.
import java.util.Arrays;
public class ArrayHandler {
static double[] handle(double[] array) {
double sum1 = 0.0;
for(int i = 1; i < array.length; i+=2)
sum1 += array[i];
System.out.println(sum1);
double sum2 = 0.0;
int negPos1 = -1, negPos2 = -1;
for(int i = 0; i < array.length; i++)
if(array[i] < 0)
if(negPos1 == -1)
negPos1 = i;
else
negPos2 = i;
if(negPos2 != -1)
for(int i = negPos1 + 1; i < negPos2; i++)
sum2 += array[i];
System.out.println(sum2);
int iter = 0;
double[] temp = new double[array.length];
for(double v : array)
if(v > 1 || v < -1)
temp[iter++] = v;
double[] result = new double[iter];
System.arraycopy(temp, 0, result, 0, iter);
return result;
}
}
