Определить средний рост студентов группы

@террор · Регистрация: 07.11.2010

Author24 — интернет-сервис помощи студентам

Задача( в паскале)

Даны сведения о росте 15 студентов группы - A[15]
1)Определить рост самого высокого и рост самого низкого студента группы; и их порядковые номера
2)Определите средний рост студентов группы
3)Определить сколько N студентов группы имеют рост боьше 180 см )) и их порядковый номер
4)Сформировать из них новый массив B[N]

@TAVulator · 08.11.2010, 00:18

террор, какие именно у тебя затруднения появились?

@кот Бегемот · 08.11.2010, 00:21

Не по теме:

у него с паскалем такие затруднения, что он даже его с бейсиком перепутал

@террор · 08.11.2010, 00:52 **[ТС]**

/ с паскалем не особо знаком \
помогите пожалуста)

@pryda · 08.11.2010, 01:46

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
41
42
43
44
const n=15;
var a,b:array[1..n]of integer;
    i,max,min,imax,imin,sr,k,ind:integer;
begin
randomize;
for i:=1 to n do
begin
    a[i]:=random(50)+150;
    write(a[i]:5);
end;
writeln;
max:=a[1]; min:=a[1];
imax:=1; imin:=1; sr:=0;
for i:=2 to n do
begin
    sr:=sr+a[i];
    if a[i]>max then
    begin
        max:=a[i];
        imax:=i;
    end;
    if a[i]<min then
    begin
        min:=a[i];
        imin:=i;
    end;
end;
writeln('Рост самого высокого студента: ',max,' см. Его номер: ',imax);
writeln('Рост самого низкого студента: ',min,' см. Его номер: ',imin);
sr:=trunc(sr/n);
writeln('Средний рост студентов: ',sr,' см');
k:=0; ind:=1;
for i:=1 to n do
if a[i]>180 then
begin
    inc(k);
    b[ind]:=a[i];
    inc(ind);
end;
writeln('Студентов, с ростом выше 180 см: ',k);
writeln('Новый массив B[N] :D ');
for i:=1 to ind-1 do
write(b[i]:5);
end.

upd: в 3 задании про порядковый номер не заметил. сам добавишь.

@террор · 08.11.2010, 18:30 **[ТС]**

спасибо

Добавлено через 8 часов 48 минут
Программа не работает\

@Puporev · 08.11.2010, 18:48

Если не Паскаль АВС, вставь строку

Pascal
1
2
3
write(b[i]:5);
readln //эту
end.

Добавлено через 31 секунду
И Enter нажми для выхода....

@террор · 08.11.2010, 19:31 **[ТС]**

Добавлено через 6 минут
спасибо) заработала) Токо когда ввожу какое либо значение ~ результат не показывает и сразу же сворачивается / что нужно сделать?

@Puporev · 08.11.2010, 19:38

токо когда ввожу какое либо значение

Что вы вводите? Какое значение? Программа не требует никакого ввода.

@террор · 08.11.2010, 19:49 **[ТС]**

Я сначала не разобрался с программой \ поэтому вводил значения\ спс буду знать что вводить нечего не надо

@karinnnna · 22.10.2012, 15:51

А можно еще блок схему составить????

22.10.2012, 17:34

напишите пожалуйста про порядковые номера))

Новые блоги и статьи Все статьи Все блоги /
Лучшие практики оптимизации Docker Image Mr. Docker 13.03.2025 Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .	Вопросы на собеседовании по Docker Mr. Docker 13.03.2025 Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .	Поиск текста в сносках : замена дефиса на тире или тире на дефис... РоΜа 13.03.2025 Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .	Real PATH definitions in bash scripts jigi33 13.03.2025 Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)	Django или Flask: что выбрать для веб-разработки на Python py-thonny 13.03.2025 Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .
Непрерывное развертывание в Java с Kubernetes Javaican 13.03.2025 Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .	Предотвращение XSS, CSRF и SQL-инъекций в JavaScript run.dev 13.03.2025 JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .	PHP 8: JIT-компиляция и улучшение производительности Jason-Webb 13.03.2025 PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .	Сериализация данных с Apache Avro в Kafka Javaican 12.03.2025 Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .	Создание потребителей Kafka с помощью Reactor Kafka Javaican 12.03.2025 Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .

@террор 7 / 7 / 0 Регистрация: 07.11.2010 Сообщений: 22
		1
	Определить средний рост студентов группы 08.11.2010, 00:14. Показов 7947. Ответов 11 Метки нет (Все метки) Задача( в паскале) Даны сведения о росте 15 студентов группы - A[15] 1)Определить рост самого высокого и рост самого низкого студента группы; и их порядковые номера 2)Определите средний рост студентов группы 3)Определить сколько N студентов группы имеют рост боьше 180 см )) и их порядковый номер 4)Сформировать из них новый массив B[N] 2

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	08.11.2010, 00:18	2
	террор, какие именно у тебя затруднения появились? 0

@кот Бегемот
	08.11.2010, 00:21	3
	Не по теме: у него с паскалем такие затруднения, что он даже его с бейсиком перепутал 0

@террор 7 / 7 / 0 Регистрация: 07.11.2010 Сообщений: 22
	08.11.2010, 00:52 [ТС]	4
	/ с паскалем не особо знаком \ помогите пожалуста) 1

@террор 7 / 7 / 0 Регистрация: 07.11.2010 Сообщений: 22
	08.11.2010, 18:30 [ТС]	6
	спасибо Добавлено через 8 часов 48 минут Программа не работает\ 1

@террор 7 / 7 / 0 Регистрация: 07.11.2010 Сообщений: 22
	08.11.2010, 19:31 [ТС]	8
	Добавлено через 6 минут спасибо) заработала) Токо когда ввожу какое либо значение ~ результат не показывает и сразу же сворачивается / что нужно сделать? 1

@Puporev Почетный модератор 64306 / 47603 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.11.2010, 19:38	9
	токо когда ввожу какое либо значение Что вы вводите? Какое значение? Программа не требует никакого ввода. 1

@террор 7 / 7 / 0 Регистрация: 07.11.2010 Сообщений: 22
	08.11.2010, 19:49 [ТС]	10
	Я сначала не разобрался с программой \ поэтому вводил значения\ спс буду знать что вводить нечего не надо 1

@karinnnna 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 6
	22.10.2012, 15:51	11
	А можно еще блок схему составить???? 0

jyliya
	22.10.2012, 17:34	12
	напишите пожалуйста про порядковые номера))

Определить средний рост студентов группы

Решение