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

[Nox]

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

[AlaRic]

А как насчет сам? ;D У тебя же есть наработки! ;)

Код

program dva;
var q,a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
q:=a-(b*trunc(c));
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
writeln('Остаток: ',q:3:1);
end.

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