Менделеев
6 год назад
НЕТ ИНДЕКСНОГО СВОЙСТВА ПО УМОЛЧАНИЮ ДЛЯ ТИПА INTEGERvar c:integer;a:array[1..10] of integer;b:array[1..10] of integer;i,k:byte;beginreadln(c);write('a[',i,']=');for i:=1 to 10 do begina[i]:=random(21)-10;write(a[i],' ');end;beginwriteln('a[',i,']=',a[i]);Readln (a[i]);Write('b[',i,']=',b[i]);Readln (b[i]); Writeln('c[',i,']=',c[i]);Readln (c[i]);for i:=1 to 10 do end;beginif (c[i]>a) and (c[i]end;For i:=1 to n do write('Кол-во элементов в диапазоне [',a,',',b,']: ',k);end.
ОТВЕТЫ
Харитон
Oct 24, 2020
var
c: array[1..10] of integer;
a,b,i,k:byte;
begin
for i:=1 to 10 do
begin
c[i]:=random(21)-10;
write(c[i],' ');
end;
writeln;Writeln('a, b:');
Readln (a,b);
k:=0;
for i:=1 to 10 do
if (c[i]>=a) and (c[i]<=b) then k:=k+1;
writeln('Кол-во элементов в диапазоне [',a,',',b,']: ',k);
end.
Пример:
-3 6 2 -8 -6 5 6 2 5 -9
a, b:
0 5
Кол-во элементов в диапазоне [0,5]: 4
c: array[1..10] of integer;
a,b,i,k:byte;
begin
for i:=1 to 10 do
begin
c[i]:=random(21)-10;
write(c[i],' ');
end;
writeln;Writeln('a, b:');
Readln (a,b);
k:=0;
for i:=1 to 10 do
if (c[i]>=a) and (c[i]<=b) then k:=k+1;
writeln('Кол-во элементов в диапазоне [',a,',',b,']: ',k);
end.
Пример:
-3 6 2 -8 -6 5 6 2 5 -9
a, b:
0 5
Кол-во элементов в диапазоне [0,5]: 4
73
Смежные вопросы:
