Pascal ABC (Решение задач)

[Konteeks]

Привет всем,ребята пожалуйста помогите решить пару задач,буду благодарен.

1)Заданы числа a,b,c если выполняется условие a≥b≥c ,то умножить эти числа на 2,в противном случае найти их абсолютное значение.

2)Заданы натуральное число n и вектор А из действительных чисел размером n .Найти количество положительных и отрицательных элементов массива.

[Вадим Мошев]

Сами пробовали? Покажите наработки.

[Konteeks]

Ничего не получилось.Поэтому решил обратиться сюда

[type_Oleg]

Konteeks, а зачем вам этот Pascal ? Бросьте вы его. Если такие простые задачи не получаются, зачем себя мучить. Или вас насильно кто заставляет программы писать?

[xWoWx]

Сообщение от Konteeks

Ничего не получилось.Поэтому решил обратиться сюда

Ну токого небывает) если пробывали то должно что то быть хотя бы блок схема).
На второе вроде так

Код Pascal 
 uses crt;
const n=20;
var a:array[1..n] of integer; 
      i,k,p:integer;
 begin
  ClrScr;
  Writeln('Введите массив');
   for i:=1 to n do
   begin
    Write('a[',i,']: ');
    Readln(a[i]);
   end;
  for i:=1 to n do
   begin
   if a[i]>0 then
    k:=k+1;
   if a[i]<0 then
    p:=p+1;
   end;
 Writeln('Колличество положительных ',k);
 Writeln('Колличество отрицательных ',p);
Readln;
end.

[Serge_Bliznykov]

Сообщение от xWoWx

var a:array[1..n] of integer; 
...
 Writeln('Колличество положительных ',k);
 Writeln('Колличество отрицательных ',p);
Readln;
end.

чуть-чуть не соответствует условиям задачи:

и вектор А из действительных чисел размером n

ну и "количество" с одной буквой "л" (извините за грамми-нацизм

[Konteeks]

Спасибо за ответы,да в университете дают такие,мне они по идеи ни к чему)
Если кто сможет решить 1 задачу напишите пжл.)

[Mad_Cat]

var a,b,c:real;
begin
readln(a,b,c);
if (a>=b) and (b>=c) then
writeln(2*a:6:3,2*b:6:3,2*c:6:3)
else writeln(abs(a):6:3,abs(b):6:3,abs(c):6:3);
end.

[Konteeks]

Благодарю!Тему можно закрыть.