Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Gentleman
Cергей К
Лена-пена
•••
Искусственный Интеллект
Просветленный
Искусственный Интеллект
Написать программу в Pascal
Владислава Кожокар
(98),
закрыт
1 неделю назад
2) Рост каждого студента группы, состоящей из N человек (N – нечетное), хранится в массиве a a [1..N]. Определить рост студента, который бы оказался в середине шеренги в случае построения ее по ранжиру.
Лучший ответ
Маша Малинина
(26221)
1 месяц назад
А я вообще ничего сочинять не буду. Тем более такие вопросы слишком уж часто повторяются. И этот был здесь недавно:
https://otvet.mail.ru/answer/2011889907#
Можно исправить только рандомный массив на массив, вводимый с экрана. Да и то не знаю зачем, там и так всё вроде нормально должно работать (❁´◡`❁)
https://otvet.mail.ru/answer/2011889907#
Можно исправить только рандомный массив на массив, вводимый с экрана. Да и то не знаю зачем, там и так всё вроде нормально должно работать (❁´◡`❁)
Остальные ответы
Кублен
(92610)
1 месяц назад
ОСТАЛЬНОЕ - САМ
program massiv;
uses crt;
var
i,n:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(50)+150; write(b[i]:4 );
end;
writeln;
end.
program massiv;
uses crt;
var
i,n:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(50)+150; write(b[i]:4 );
end;
writeln;
end.
Похожие вопросы