Написать программу на заполнение 2-х массивов(рост девочек и рост мальчиков).Определить средний рост мальчиков.Подсчитать количество девочек,у которых
10-11 класс
|
рост выше среднего роста мальчиков.
unit math;
var
d,m:array[1..20] of integer;
sr:real;
kol,s:integer;
Begin
for i:=1 to 20 do begin
d[i]:=RandomRange(140,180);
writeln('Рост ',i,'-ой девочки =',d[i],' см');
m[i]:=RandomRange(140,190);
writeln('Рост ',i,'-го мальчика= ',m[i],' см');
end;
s:=0;sr:=0;kol:=0;
for i:=1 to 20 do s:=s+m[i];
sr:=s/20;
writeln('Средний рост мальчиков= ',sr,' см');
for i:=1 to 20 do
if d[i]>sr then kol:=kol+1;
writeln('Колличество девочек превышающий средний рост мальчиков= ',kol);
End.
Другие вопросы из категории
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!
13.
Нужно написать программу на цикле с предусловием, на Паскале.
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
Дано натуральное число n. Написать программу вычисляющую сумму