СРОЧНО!!! Дан цело численный массив .Найти: КАЖДУЮ ОТДЕЛЬНО!!!! а) удвоенную сумму положительных элементов б)Коол-во элементов массива , значения которых больше заданного числа А(А-Склавиатуры) в)Кол-во тех элементов,значения к...

Question

СРОЧНО!!! Дан цело численный массив .Найти: КАЖДУЮ ОТДЕЛЬНО!!!! а) удвоенную сумму положительных элементов б)Коол-во элементов массива , значения которых больше заданного числа А(А-Склавиатуры) в)Кол-во тех элементов,значения к...

СРОЧНО!!! Дан цело численный массив .Найти: КАЖДУЮ ОТДЕЛЬНО!!!! а) удвоенную сумму положительных элементов б)Коол-во элементов массива , значения которых больше заданного числа А(А-Склавиатуры) в)Кол-во тех элементов,значения которых положительны и не превосходят данного числа А (А-Склавиатуры)

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.