Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.09.2017 06:23
- Информатика
- remove_red_eye 18566
- thumb_up 21
Ответы и объяснения 1
const
nn=10;
type
arr=array[1..nn] of integer;
var
a,b,c:arr;
i,k,m,n:integer;
y:real;
procedure Kol(p:arr; k:integer; var r:integer);
var
i:integer;
begin
r:=0;
for i:=1 to k do
if (p[i]>=1) and (p[i]<=5) then r:=r+1
end;
begin
Randomize;
Write('A: ');
for i:=1 to 10 do begin
a[i]:=Random(16)-5;
Write(a[i],' ')
end;
Writeln;
Write('B: ');
for i:=1 to 8 do begin
b[i]:=Random(16)-5;
Write(b[i],' ')
end;
Writeln;
Write('C: ');
for i:=1 to 7 do begin
c[i]:=Random(16)-5;
Write(c[i],' ')
end;
Writeln;
Kol(a,10,k); Kol(b,8,m); Kol(c,7,n);
y:=2/3+k+Abs(m-n);
Writeln('Y = ',y)
end.
- 27.09.2017 00:10
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.