Задать вопрос
31 июля, 12:29

1. Описать массив, подходящий для представления роста (в см) призывников в РА из 115 группы.

2. Написать программу, заполняющую массив данными (не упорядоченными) с клавиатуры и печатающую средний рост призывников.

3. Включить в программу функцию, определяющую порядковый номер самого высокого призывника.

4. Включить в программу функцию, определяющую количество призывников, имеющих рост не более чем на 10% отличающийся от роста самого высокого призывника (включая его)

Массивы одномерные

Рост примерный

Паскаль АВС

+3
Ответы (1)
  1. 31 июля, 16:08
    0
    Const

    n=5;

    type

    MyArr=array[1 ... n] of integer;

    var ar:MyArr;

    i, maxi, val:integer;

    k:real;

    function Maxii (ar:MyArr) :

    integer;

    var i, max:integer;

    begin;

    Max:=-2147483648;

    for i:=1 to n do

    if ar[i]>max then

    begin;

    max:=ar[i];

    maxii:=i;

    end;

    end;

    function Amp (ar:MyArr) : integer;

    var i, max, s:integer;

    p:real;

    begin;

    Max:=-2147483648;

    for i:=1 to n do

    if ar[i]>max then max:=ar[i];

    p:=max/100*10;

    for i:=1 to n do

    if ar[i]>=max-p then inc (s) ;

    Amp:=s;

    end;

    begin;

    for i:=1 to n do

    begin;

    readln (ar[i]) ;

    k:=k+ar[i];

    end;

    k:=k/n;

    writeln ('Средний рост:', k) ;

    maxi:=maxii (ar) ;

    writeln ('Самый высокий призывник:', maxi) ;

    val:=Amp (ar) ;

    writeln ('4:', val) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Описать массив, подходящий для представления роста (в см) призывников в РА из 115 группы. 2. Написать программу, заполняющую массив ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
На с + + Мальчик-романтик из царства-государства дарит цветы незнакомым дамам-девушкам. Известно, что он дарит цветок каждой пятой даме-девушке, но при этом не дарит цветок, если порядковый номер дамы-девушки кратен 25.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост самого высокого равен 205 см, а самого низкого - 150 см. Найти средний рост.
Ответы (1)
Помогите с информатикой, ту массивы на языке Паскаль. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените нулем элементы массива, которые больше введенного с клавиатуры числа N. Выведите на экран исходный и полученный массивы
Ответы (1)
Помогите решить задачи! 1. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести максимальный элемент данного массива и его номер. 2. Дан массив размера 10, числовые значения которого вводятся с клавиатуры.
Ответы (1)