Помогите с программой по информатике
5-9 класс
|
Найти средний рост класса. Написать программу. 10 человек
Самый наименьший рост 162 самый высокий 170
var
s:real;
i,x:integer;
begin
writeln('Вводите рост учеников:');
for i:=1 to 10 do
begin
readln(x);
s:=s+x;
end;
s:=s/10;
writeln('Средний рост: ',s);
end.
нужно сложить все росты (каждого) и разделить их на 10 (кол-во)
Другие вопросы из категории
МЫ РАБОТАЕМ С ПАСКАЛЕМ(:
Читайте также
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...
подоходные 7 процентов.
.Определить в какой день он пробежит больше 20км ,а в какой день суммарный пробег за все дни превысит 100км?
v1, v2, v3..., vn литров, пустой сосуд и кран с водой. Можно ли с помощью этих банок налить в сосуд ровно v литров воды.(Ответ должен выдаваться да или нет) Решение: обозначим s:=nod(v1, v2, v3..., vn) Если v делится нацело на s, то в сосуд с помощью банок можно налить v литров воды, иначе нет.Напишите программу пожалуйста,срочно и полностью, я вообще её не могу понять,помогите!!! :)