Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin
Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры
end;
For i:=1 to 25 do
s:=s+a[i];
//находим суммарный рост всех учеников
h:=s/25;
// делим на их количество. Теперь переменная h - это средний рост
For i:=1 to 25 do
if a[i]>h then otvet:=otvet+1;
// А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
Writeln('Средний рост в классе равен ',h);
Writeln('Количество высоких учеников в классе равно ',otvet);
//вывод данных
end.
1. Сила двигателя 2. Сила трения встречного воздушного потока 3.уровень горизонта 4. Коэффициент трения колес с дорожным покрытием 5. гравитация планеты.
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
Суть шифра - заменяем букву на предыдущую по алфавиту английского языка.
Olymp
Nkxlo
Ответ: Nkxlo.
Во!
uses graphABC;
var x,y,z,n:integer;
Begin
randomize;
n:=random(1000)+1;
y:=random(n)+123;
x:=random(y)+n;
z:=x+23;
SetWindowSize(n,z);
setbrushcolor (clRed);
Ellipse(z,y,n,x);
floodfill (z,n, clgreen);
line(z,x,z,n);
line(n,y,n,z);
line(x,x,z,n);
end.