Question

В одномерном массиве, состоящем из n элементов, вычислить: 1)количество отрицательных элементов массива,расположенных на четных местах 2)сумму четных элементов массива, расположенных на нечетных местах. Заменить все отрицательные элементы массива их квадратами.
Паскаль

Answer 1

const nx =20;
var D:array[1..nx] of integer; i,n,k,sum:integer;
begin
write('Введите число элементов n');
Readln(n);
for i:=1 to n do begin
D[i]:= random(100)-50;write(D[i]:4);
if (D[i]<0) and (i mod 2 = 0) then k:=k+1;
if (D[i] mod 2 =0) and (i mod 2 = 1) then sum:= sum + D[i];
if (D[i]<0) then D[i]:= D[i] * D[i];end;writeln;writeln(k);
writeln(sum);
for i:=1 to n do
write(D[i]:8);end.