profile
Опубликовано 4 года назад по предмету Информатика от BaHTyC1

СРОЧНО!!!

Дан цело численный массив .Найти:

КАЖДУЮ ОТДЕЛЬНО!!!!

а) удвоенную сумму положительных элементов

б)Коол-во элементов массива , значения которых больше заданного числа А(А-Склавиатуры)

в)Кол-во тех элементов,значения которых положительны и не превосходят данного числа А (А-Склавиатуры)

  1. Ответ
    Ответ дан irkayaa

    program massiv;

    var b:array[1..100]of integer;

    r,n,m,i,p,k,a:integer;

    begin

    randomize;writeln ('a=');readln(a);

    writeln('n=');readln(n);

    for i:=1 to n do begin

    b[i]:=random(50)-25;

    writeln('a[',i,']=');

    if b[i]>0 then begin r:=r+b[i];p:=r*2;

    if b[i]>a then k:=k+1;

    if ((b[i]<a)and(b[i]>0)) then m:=m+1;

    end;end;writeln('удвоенная сумма положительных элементов ',p);

    writeln('kол-во элементов массива , значения которых больше заданного числа',k);

    writeln('количество положительных элементов не превсходящих заданного числа',m);

    end.

Другие вопросы
Lenusik
Математика - 1 неделя назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.