2 задачи Pascal

[konfetka]

Составить схему алгоритма и программу с использованием оператора цикла с предусловием WHILE − DO:
1)Произвести следующую обработку 15 вещественных чисел: найти количество отрицательных чисел, а числа, входящие в диапазон [0..10] возвести в квадрат.
2)Произвести следующую обработку 15 вещественных чисел: найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, входящих в диапазон [0..5].

[DM_bite]

1.

program Xd;
const n=15;
var a:array [1..n] of real;
    i,k: integer;
    begin
    k:=0;
    while (i<n) do
    begin
    inc(i);
    ReadLn(a[i]);
    if a[i]<0 then
    begin
    inc(k);
    end;
    if (a[i]<10) and (a[i]>0) then a[i]:= sqr(a[i]);
    end;
    WriteLn(k,'__');
    ReadLn;
    end.

2.

program Xd;
const n=15;
var a:array [1..n] of real;
    i,k,c: integer;
    sum:real;
    begin
    k:=0;
    sum:=0;
    c:=0;
    while (i<n) do
    begin
    inc(i);
    ReadLn(a[i]);
    if a[i]<0 then
    begin
    inc(k);
    sum:= sum+a[i];
    end;
    if (a[i]<5) and (a[i]>0) then inc(c);
    end;
    WriteLn(sum/k,'__');
    WriteLn(k);
    ReadLn;
     end.

Только во второй задачи обязательно должны быть отриц элементы, иначе - деление на ноль(не добавил проверки на это)

с использованием оператора цикла с предусловием WHILE − DO:

Переделал.

[Serge_Bliznykov]

входящие в диапазон [0..10]

входящих в диапазон [0..5]

скобочки внутрь, это означает, что границы диапазона включаются в диапазон, поэтому равество должно быть нестрогое:

if (a[i]<=10) and (a[i]>=0) then a[i]:= sqr(a[i]);

if (a[i]<=5) and (a[i]>=0) then inc(c);

и в конце вывести количество чисел, входящих в диапазон:

WriteLn(c);