помогите решить задачи 8 9 10 и 11

  • На Паскале нужно решение? !
    отметить нарушение!
    nikolaj-semyonov
  • Все 5 задач? !
    отметить нарушение!
    nikolaj-semyonov
  • да !
    отметить нарушение!
    aleksandra-kozyreva
  • 4 задачи 8, 9, 10,11 !
    отметить нарушение!
    aleksandra-kozyreva

Ответы и объяснения

7. Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение.

program countMax;
var
k, i, max: integer;
a: array [1..10] of integer;
begin
{генерируем массив из 10 чисел}
randomize;
for i:=1 to 10 do
a[i]:=random(100);
{находим максимум}
max:=a[1];
for i:=1 to 10 do
if (a[i] > max) then max:=a[i];
{находим количество максимумов}
k:=0;
for i:=1 to 10 do
if (a[i] = max) then inc(k);
writeln('Максимум ', max, ' встречается ', k, ' раз.');
end.

8. В классе 20 учеников писали диктант по русскому языку. Напишите программу, подсчитывающую количество двоек, троек, четвёрок и пятёрок, полученных за диктант.

program countMarks;
var
i, c2, c3, c4, c5: integer;
a: array [1..10] of integer;
begin
{генерируем массив оценок}
randomize;
for i:=1 to 20 do
a[i]:=random(4)+2;
{обнуляем счётчики количества двоек, троек, четверок и пятерок}
c2:=0;
c3:=0;
c4:=0;
c5:=0;
{находим количество двоек, троек, четверок и пятерок}
for i:=1 to 20 do
begin
writeln(a[i]);
if (a[i] = 2) then inc(c2);
if (a[i] = 3) then inc(c3);
if (a[i] = 4) then inc(c4);
if (a[i] = 5) then inc(c5);
end;
{выводим результат}
writeln('Оценку 2 получили ', c2, ' учеников.');
writeln('Оценку 3 получили ', c3, ' учеников.');
writeln('Оценку 4 получили ', c4, ' учеников.');
writeln('Оценку 5 получили ', c5, ' учеников.');
end.

9. Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Запишите на языке Паскаль программу. Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n=50.

program choiceTeam;
var
k, i, n: integer;
a: array [1..50] of integer;
begin
{генерируем массив с ростом учеников}
randomize;
n:=50;
for i:=1 to n do
a[i]:=random(50)+150;
{считаем претендентов}
k:=0;
for i:=1 to n do
if (a[i] >= 170) then inc(k);
writeln('Количество претендентов ', k);
end.

10. В целочисленных массивах a и b содержатся длины катетов десяти прямоугольных треульгольников (a[i] - длина первого катета, b[i] - длина второго катета i-го треугольника). Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.

program countMax;
var
k, i, max: integer;
a, b, c: array [1..10] of integer;
begin
{генерируем массивы катетов}
randomize;
for i:=1 to 10 do
begin
a[i]:=random(20);
b[i]:=random(20);
end;
{находим площади всех прямоугольников и максимальную площадь}
{чтобы не возиться с типами real}
max:=a[1]*b[1];
for i:=1 to 10 do
begin
c[i]:=a[i]*b[i];
if (c[i] > max) then max:=c[i];
end;
{выводим наибольшие треугольники}
for i:=1 to 10 do
begin
if (c[i] < max) then continue
else
writeln('Треугольник №', i, ' площадью ', c[i]/2:3:3, ' с катетами ', a[i], ' и ', b[i]);
end;
end.

Новые вопросы по теме

Задай вопрос
+