(цикл с параметром)
1. в последовательности чисел посчитать сумму чисел
оканчивающихся на 0 и 5.
2. в последовательности посчитать сумму и количество нечетных
элементов.
3. из последовательности чисел вывести на экран числа,
следующие за четными, посчитать их количество.
4. посчитайте сумму элементов массива больше нуля
5. посчитайте сумму элементов массива равных нулю
6. посчитайте среднее арифметическое значение заданного массива (линейного и прямоугольного)
7.дан линейный массив и некоторое число. исключить из данного массива все элементы меньше данного числа
const
AOper: array [0..3] of string = ('+', '-', '*', '/');
var
a, b, Oper: Integer;
r: Real;
begin
Randomize; // инициализация датчика случайных чисел
a := Random (1001);
b := Random (1001);
Oper := Random (4);
case Oper of
0: r := a + b;
1: r := a - b;
2: r := a * b;
3:if b <> 0 then begin
r := a / b;
end else begin
WriteLn ('Произошла ошибка при делении на ноль');
Exit;
end
else r := -1;
end;
WriteLn (a);
WriteLn (b);
WriteLn (Aoper [Oper]);
if (r >= 0) and (r - Trunc (r) = 0) then begin // если в результате получилось положительное целое число
WriteLn ('yes');
WriteLn (r :6 :0);
end else
WriteLn (' no');
ReadLn;
end.
Объяснение:
r - Trunc (r) // это выделение дробной части числа