СРОЧНО!!!
Дан цело численный массив .Найти:
КАЖДУЮ ОТДЕЛЬНО!!!!
а) удвоенную сумму положительных элементов
б)Коол-во элементов массива , значения которых больше заданного числа А(А-Склавиатуры)
в)Кол-во тех элементов,значения которых положительны и не превосходят данного числа А (А-Склавиатуры)
More Questions From This User See All
Answers & Comments
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.