Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

СРОЧНО!!!

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

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

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

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

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

Ответ оставил Гость

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]0)) then m:=m+1;

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

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

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

end.