Задачи: массивы! Опции

[Nox]

Програмисты пожалусто помогите решыть такие задания:
1.Ввести два вешественых числа a и b. Найти остаток от деления a и b. Определить принадлежность остатка интервалу [0…4].
2.Даны 10 вешественых чисел. Определить набольшее из отрицательных чисел, округлить его к ближайшему целому.
3.Найти суму положительных элементов двух диогоналий массива. Определить является ли полученное округлое число простым.
P.S Пожалуста кто знает ответте!!! ;)

[zx1024]

Код

program ForNox;
var a, x, l : real;
 b : boolean;
begin
 repeat
   write ('введите l (l>0, l<>1): ');
   readln (l)
 until (l>0) and (l<>1);
 write ('введите a: ');
 readln (a);
 b := true;
 if a>=2 then
   x := -ln(a) / ln(l)
 else
 if a<0 then
   x := -1
 else
 if (0<a) and (a<=2) then
   x := - abs(a-1)/a
 else
   b := false;
 if b then
   writeln ('f(x)=0 при x=', x)
 else
   writeln ('решения нет!!!')
end.

Сообщение отредактировано: volvo - 17.12.2004 14:01