Предмет: Информатика,
автор: Seth8800
Даю 99 баллов!!Известны сведения о росте юношей-старшеклассников.Определить количество кандидатов в сборную школу по баскетболу,если туда набирают участников не менее 170см.
Помогите с информатикой!Даю 99 баллов!Язык Паскаль.
Ответы
Автор ответа:
0
const n=20;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)+140;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
156 147 168 157 178 188 141 150 148 185 188 154 153 188 159 177 162 177 174 142
k = 8
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)+140;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
156 147 168 157 178 188 141 150 148 185 188 154 153 188 159 177 162 177 174 142
k = 8
Автор ответа:
0
Спасибо большое!
Автор ответа:
0
Пожалуйста.
Похожие вопросы
Предмет: Английский язык,
автор: ishimbetova89
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: clickheretoand
Предмет: Математика,
автор: дочам
Предмет: Алгебра,
автор: Veronika270311