Program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
2+2=4
2+4=6
2+6=8
2+8=10
2+10=18
2+12=14
2+14=16
2+16=18
2+18=20
(так же делаешь с числами 4, 6, 8.....18)
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.