Дан цело численный массив .найти: каждую а) удвоенную сумму положительных элементов б)коол-во элементов массива , значения которых больше заданного числа а(а-склавиатуры) в)кол-во тех элементов,значения которых положительны и не превосходят данного числа а (а-склавиатуры)
257
327
Ответы на вопрос:
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.
ответ:
1. веб-камера 2. проектор
объяснение:
1. веб-камера 2. проектор
Популярно: Информатика
-
Melentii20.06.2022 00:53
-
emilinloveTV04.07.2021 14:49
-
Ябулочкасизюмом16.10.2021 07:38
-
Denair11.06.2020 07:50
-
ibraimova227.07.2021 08:17
-
serejafox2312.01.2023 00:28
-
ostapenkonatasha30.04.2020 13:47
-
dasha195718.01.2020 03:22
-
llallallup09.09.2022 00:19
-
Orxan141416.04.2021 05:50