Безотлагательно!!!Дан цело численный массив .Найти:КАЖДУЮ Раздельно!!!!а) удвоенную сумму

Безотлагательно!!!

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

КАЖДУЮ Раздельно!!!!

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

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

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

Задать свой вопрос
1 ответ

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]gt;0 then begin r:=r+b[i];p:=r*2;

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

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

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

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

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

end.

, оставишь ответ?
Имя:*
E-Mail:


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

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт