нужна помощь по решению задач на паскале, одномерные массивы!

[capta1n]

ну да - я просто решил доказать по-другому, чтобы было видно

[alex_fcsm]

Вот что набросал, развивайте

const l=10;
var   a:array[1..l] of real;
      i:integer;
      s:string;
begin
 for i:=1 to l do
  read(a[i]);
 for i:=1 to l do
  begin
   str(a[i],s);
   if s[length(s)] in ['1','3','5','7','9'] then a[i]:=-a[i];
   write(a[i]:6:2,' ')
  end;
end.

[NOUSTA]

гляньте лучше эту:

Дан одномерный массив чисел. Определить сумму его элементов.

[Serge_Bliznykov]

Ребята, ну что Вы выдумываете несуществующие теории чисел?!!!
capta1n, ещё в сообщении #4 сделал правильное замечание.
взято с википедии - Чётность:

Чётность в теории чисел — способность целого числа делиться без остатка на 2.

Заметьте - ЦЕЛОГО числа!
Остальное - от лукавого...

согласно

[NastyFantasy]

пожалуйста помогите мне решить задачку,а то я совсем ничего не понимаю в этих массивах*(мне нужна схема и программа,хотя бы что-нибудь из этого)


Формирование массива длинной N элементов,заполняя его с клавиатуры(вводя сначала количество символов,и затем по одному произвольному символу пока не введется указанное количество),подсчет и вывод на экран количества символов из диапозона от "A" до "z"

Вывод в файл исходного массива и результата работы
Тип:символьный

[IT-man]

var i,n:integer;
        f:text;
        c: array[1..255] of char;
       ct:integer;
begin
readln(n);
ct:=0;
for i:=1 to n do begin
read(c[i]);
if c[i] in ['A'..'z'] then ct:=ct+1;
end;
assign(f,'char.txt');
rewrite(f);
for i:=1 to n do 
write(f,c[i]);
write(f,ct);
close(f);
readln;
end.

[NastyFantasy]

спасибо большущее:*