Paskal, цыклы, масивы.

[Maks://]

1.Даны числа а 1 , a 2 , …, а 10 . Определить сумму их квадд ратов.
2.Дано натуральное число. Верно ли, что количество его цифр есть четное число?
3.Дан массив целых чисел. Выяснить является ли является ли р-й элемент массива положительным числом.
4.Найти сумму элементов массива вещественных чисел, имеющих нечетные номера.

[начинающий кодер]

1)

s:=0;
for i:=1 to 20 do 
s:=s+sqr(a[i]);
writeln ('summa=',s:0:5);

3)

readln(n);
if a[n]>0 then writeln('+')
  else writeln ('-');

4)

i:=1;s:=0;
while i<size do begin
s:=s+a[i];
i:=i+2;
end;

[capta1n]

1)

program project;
const
 n = 10;
var
 a : array [1..n] of real;
 sum : real;
 i : 1..n;
begin
  for i:=1 to n do
  begin
    write ('a ',i,' = ');
    readln (a[i])
  end;
  sum:=0;
  for i:=1 to n do sum:=sum+sqr(a[i]);
  writeln ('Summa= ',sum:0:2);
  readln
end.

[pomoshnic]

1)

var a,i:word;
sum:longint;
begin
for i:=1 to 10 do
begin
write('a ',i,'=');readln(a);
sum:=sum+sqr(a);
end;
writeln('sum=',sum);
readln
end.

[alex_fcsm]

var n:string;
    x:integer;
begin
readln(x);
str(x,n);
if length(n) mod 2 =0 then writeln('yes')
   else writeln('no');
end.

P.S. хотя число можно было рассматривать как строку

[capta1n]

2)

program project;
var
 n : word;
 i : byte;
 f : boolean;
begin
  readln(n);
  i:=0;
  while n<>0 do
  begin
    n:=n div 10;
    inc(i)
  end;
  if odd(i) or (i=0) then f:=false else f:=true;
  writeln(f);
  readln
end.

[Maks://]

Спасиба большшое, выручил!

[pomoshnic]

2)

var l:longint;
a:array[1..10]of byte;
k:byte;
begin
write('->');readln(l);
repeat
inc(k);
a[k]:=l mod 10;
l:=l div 10;
until l=0;
if odd(k) then write('ne ');
writeln('verno');
readln
end.

[-HunteR-]

3)

program sss;
uses crt;
var
a:= array[1..500] of integer;
begin
clrscr;
writeln('Введи n'); 
readln(n);
if a[n]>0 then 
begin
writeln('Это число положительное');
end
else
begin
writeln ('Это число отрицательное');
end;
readkey;
end.