Var
a: array[1..15] of integer;
i, sum, count: integer;
begin
for i:=1 to 15 do
readln(a[i]);
sum := 0; count := 0;
for i:=1 to 15 do
if a[i] > 0 then
begin
sum := sum + a[i];
inc(count);
end;
writeln(sum, ' ', count);
end.
1) var i,n:integer;
c,d:integer;
a:array[1..1000] of integer;
begin write('введите c,d,n');
read(c,d,n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
for i:=1 to n do begin
if (a[i]>=c) and (a[i]<=d) then write(a[i],' ');
end;
end.
2) по ссылке на файл
1)
В этом задании ошибка в условии.
2)
24₁₆=2*16+4=36₁₀
3)
236₈+6С₁₆+111010₂=(2*8^2+3*8+6)+(6*16+12)+(1*2^5+1*2^4+1*2^3+1*2)=
158+108+58=324₁₀
Среднее 324/3=108₁₀
var i: integer;
begin
for i:=100 to 200 do
if i mod 3 = 0 then writeln(i);
end.
Блок-схема - в прилагаемом файле.