Безотлагательно!!!Дан цело численный массив .Найти:КАЖДУЮ Раздельно!!!!а) удвоенную сумму
Безотлагательно!!!
Дан цело численный массив .Найти:
КАЖДУЮ Раздельно!!!!
а) удвоенную сумму положительных частей
б)Коол-во частей массива , значения которых больше данного числа А(А-Склавиатуры)
в)Кол-во тех элементов,значения которых положительны и не превосходят данного числа А (А-Склавиатуры)
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.