• 24 December 2013
    • Қазақ тiлi
    • Автор: Bulach

    Составить программу для вычисления F=C+(A+B)/(A*B+1) A-наименьший элемент массива; В-количество отрицательных элементов массива; С-количество элементов массива, меньших D(вывести D с клавиатуры). Полученные значения элементов A,B,C,F, вывести на печать.


    • 24 December 2013
    • Ответ оставил: Элионора3

    Var
     v:array[1..10]of integer;
    f:real;
    i:byte;
    a,b,c,d,min,k:integer;
    begin
    for i:=1 to 10 do 
    v[i]:=random(20)-10;
    readln(d);
    min:=v[1];
    b:=0;
    for i:=1 to 10 do begin
    if v[i]<0 then begin
    b:=b+1;
    end;
    if v[i]>min then
    a:=min;
    end;
    k:=0;
    for i:=1 to 10 do begin
    if v[i]<d then
    k:=k+1;
    end;
    c:=k;
    writeln('наименьший элемент =', a);
    writeln('количество отрицательных элементов =', b);
    writeln('количество элементов меньших d =', c);
    f:=c+(a+b)/(a*b+1);writeln(f);
    end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы