1)В массиве С (10) найти количество чисел, попавших в интервал [A,B]
2)дан массив из N элементов. найти среднее арифметическое положительных элементов массива
забыла написать что в системе QBasic написать
program prog1;
var a,b,i,k:integer; c:arra[1..10] of integer;
begin
k:=0;
readln(a);
readln(b);
for i:=1 to 10 do begin
readln(c[ i]);
if ((a[ i]>=a)and(a[ i]<=b)) then k:=k+1;
end;
writeln(k);
readln;
end.
program prog2;
var n,i,sum,itog,k:integer; c:arra[1..100] of integer; //вы же не проходиле указатели.. .
begin
k:=0;
sum:=0;
itog:=0;
readln(n);
for i:=1 to n do begin
readln(c[ i]);
if (a[ i]>0) then begin k:=k+1; sum:=sum+a[ i]; end;
end;
if(k>0) then itog:=sum/k;
writeln(itog);
readln;
end.
⇢