Достаточно просто посмотреть на таблицу и сразу видно, что удоавлетворяют : Венера, Земля, Юпитер, Сатурн, Уран, Нептун, плутон. Ответ : 7
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Число элементов в массиве:');
var a:=ArrRandom(n,1,99);
Write('Исходный массив: '); a.Println;
var n1,n2:integer;
Write('Границы номеров элементов для суммы: '); Read(n1,n2);
if n1>n2 then Swap(n1,n2);
if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
else Writeln('S=',a[n1-1:n2].Sum)
end.
<u>Пример</u>
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272
Var a: array [1..100] of real;
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
end;
if k=0 then Writeln('Заданных элементов в массиве нет')
end.
<u>Пример</u>
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56