сервис вопросов и ответовнайти max и min роста всех учеников 10 класса....в классе 7 человек
10-11 класс|
|
Svetaboroduljast
25 сент. 2015 г., 20:06:39 (8 лет назад)
Kryloffandrei1996
25 сент. 2015 г., 22:02:19 (8 лет назад)
Программа присваивает ученикам случайное значение роста в диапазоне от 160 до 180 см.
Program n1;
Uses CRT;
Const n=7;
Var A: array[1..n] of integer;
i,min,max: integer;
begin
randomize;
ClrScr;
Writeln('Rost vseh ychashihsa');
max:=0;
For i:=1 to n do
begin
a[i]:=random(20);
a[i]:=a[i]+160;
write(a[i]:4);
If a[i]>max then max:=a[i];
end;
min:=max;
For i:=1 to n do
If a[i]<min then min:=a[i];
writeln;
Writeln('Max=',max,', min=',min);
readln
end.
Ответить
Другие вопросы из категории
1)Три десятичных числа(100,102,91) перевести в восьмеричную систему вычислить их сумму и перевести в десятичную систему вычислить их сумму и перевести в
десятичную.
2)Три двоичных числа перевести в 16-ую систему,вычислить их сумму и перевести в десятичную систему.
3)Три двоичных числа,перевести в 8-ую систему,а затем в 16-ую.
Просьба написать всё ясно и понятно!!!!!!!Потому что я совсем не разбираюсь!
Ребята помогите срочно решить задачу в Pascal
Посчитать в двумерном массиве количество нечетных чисел. Если этот массив является квадратной матрицей, то транспонировать его.
У исполнителя «Арифмометр» две команды, которым
присвоены номера:
1) прибавь 3,
Какое количество информации (с точки зрения вероятностного подхода)получит при игре в шахматы играющий черными после первого хода белых (при
условии, что ходить пешками запрещено)?
А9 (30). В результате сканирования одного и того же изображения были получены файлы разного размера. Первый файл – 13,2 Кб, а второй – 534 Кб.
Изменение какого параметра настройки сканирования значительно поменял размер файла? 1) Настройки сохранения местоположения файла; 2) Разрешение сканирования; 3) Изменение режима работы с автоматического на режим профессиональный; 4) Изменение режима «оттенки серого» на режим «цветное 48 бит».
Читайте также
найдите среднее арифмитическое минимального и максимального элемента из 10 вводимых. что не так?? Program Ex1;
var i,max,min,x,:integer;
Sr:real;
begin
for i := 1 to 10 do
begin
writeln('вв-те ',i,' число' );
readln(x);
End;
if x<min then
min:=x;
if x>max then
max:=x;
sr:=(max+min)/2;
Writeln(max);
Writeln(min);
Writeln(Sr);
Readln;
end.
Вы находитесь на странице вопроса "найти max и min роста всех учеников 10 класса....в классе 7 человек", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.