Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 18.01.2017
Сообщений: 21
1

Определите и выведите на экран средний рост мальчиков

23.02.2017, 18:24. Просмотров 354. Ответов 1
Метки нет (Все метки)

Информация о росте учащихся одного класса задана в виде массива. Рост девочек кодируется знаком «+» (плюс), рост мальчиков – знаком «-» (минус). Определите и выведите на экран средний рост мальчиков.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program vb5; 
uses crt;
var a:array [1..100] of integer; 
i,n,kd,km:integer; sm,sd:real;
begin 
write ('Введите количество учащихся: '); 
read(n); 
for i:=1 to n do 
read(a[ i ]); 
for i:=1 to n do 
begin 
if a[ i ]<0 then 
begin 
inc(km); 
sm:=sm-a[ i ]; 
end; 
if a[ i ]>0 then 
begin 
inc(kd); 
sd:=sd+a[ i ]; 
end; 
end; 
writeln('Средний рост мальчиков=',sm/km:0:0); 
writeln('Средний рост девочек=',sd/kd:0:0); 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2017, 18:24
Ответы с готовыми решениями:

Рассчитать средний вес мальчиков и средний рост девочек класса
Известны данные об учениках класса(фамилия, вес, рост, пол). Рассчитать средний вес мальчиков и...

Определить среднюю массу мальчиков и средний рост девочек
Собственно цель: научиться использовать структуру «Запись», освоить основные действия с записями. ...

Определите средний рост мальчиков
Рост учеников класса представлен в виде массива. Рост девочек кодируется знаком &quot;+&quot;, рост мальчиков...

Определить средний рост мальчиков и средний рост девочек (массив)
Рост 20 учеников класса представлен в виде массива. Рост мальчиков условно задан отрицательными...

1
Модератор
60218 / 45347 / 31288
Регистрация: 18.05.2008
Сообщений: 108,936
23.02.2017, 18:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
type uchenik=record
             rs:byte;
             pl:char;
             end;
var a:array [1..100] of uchenik;
    n,i,k:integer;
    s:real;
begin
repeat
write('Количество учеников от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Введите данные об учениках');
for i:=1 to n do
 begin
  writeln('Ученик ',i);
  with a[i] do
   begin
    repeat
     write('Пол + девочка - мальчик: ');
     readln(pl);
    until pl in ['+','-'];
    repeat
    write('ведите рост от 130 до 180: ');
    readln(rs);
    until rs in [130..180];
   end;
 end;
s:=0;
k:=0;
for i:=1 to n do
if a[i].pl='-' then
 begin
  s:=s+a[i].rs;
  k:=k+1;
 end;
if k=0 then write('Мальчиков нет')
else write('Средний рост мальчиков=',s/k:0:2,' см.');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2017, 18:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить средний рост мальчиков и средний рост девочек
1)рост 22 учеников класса представлен в виде массива. Рост мальчиков условно задан отрицательными...

Определить средний рост мальчиков и средний вес девочек
Помогите составить программу, что-то не получается....... Задача: По данным свединиям об учениках...

Определить средний рост девочек и мальчиков одного класса
Определить средний рост девочек и мальчиков одного класса. Количество учеников в классе заранее...

Отдельно для девочек и мальчиков вычислить средний рост
нужно ввести пол, фамилию,рост нескольких учеников и отдельно для девочек и мальчиков вычислить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.