Вывести на экран наибольший рост:
5-9 класс
|
а) из 3 учеников;б)из 10 учеников.
uses crt;
var i,n,max:integer;
a:array[1..10] of integer;
begin
write('Введите общее количество учеников: ');
readln(n);
writeln('Рост учеников: ');
for i:=1 to n do begin
a[i]:=random(195-160+1)+160;
write(a[i]:4);
end;
writeln;
max:=0;
for i:=1 to n do begin
if a[i]>max then max:=a[i];
end;
writeln('Наибольший рост среди учеников: ',max);
end.
Я объединил оба пункта задания в функцию ввода количества учеников. В начале программы оно вводится с клавиатуры, затем рост учеников задаётся случайно от 160 до 190 и выбирается наибольший.
Другие вопросы из категории
донести сигнал на несколько километров. Часть схемы передающей информацию. Распостоненное в быту средство связи. В давние времена его дым использовался для передачи важной информации. Приемник информации, имеющийся практически в каждом доме. Связь открытая нашим соотечественником в 1895 г. Название помехоустойчивого кода. Название стороны, принимающей информацию.
Читайте также
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пожсоставлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].