Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – баллы учащихся за итоговый тест по информатике. Напишите програ
10-11 класс
|
мму, которая подсчитывает средний балл класса и выводит на экран номера учеников, набравших баллов больше среднего.
uses crt;
var i,sum:integer; avg:real;
students:array[1..30] of integer;
begin
randomize;
for i:=1 to 30 do students[i]:=random(100)+0;
for i:=1 to 30 do sum:=sum+students[i];
avg:=sum/30;
writeln('sredniy bal = ',avg:0:2);
writeln;
for i:=1 to 30 do begin
if students[i]>avg then
writeln(' Student ¹ ',i,' nabral = ',students[i],' balov');
end;
readln;
end.
Другие вопросы из категории
((X<15) /\ (2∙X>23)) → ((X<14) /\ (X>15))
1)11
2)12
3)13
4)14
пожалуйста,с объяснением!
Решить задачу структурным способом записи через блоки
program fwe;
var i,k,m,n:integer;
var a,b,h,c,g,s,s1,x,yk,yn,y1:real;
begin
writeln('Vedite predeli integrirov');
readln(a,b);
writeln('Vedite kol-vo oterzkov');
readln(k);
x:=a;c:=1;s:=0;
h:=(b-a)/k;
m:=k-1;
for i:=1 to m do
begin
x:=x+h;
s:=s+(3+c)*sqrt(x+3/x);
c:=-c;
end;
s1:=sqrt(a+3/a)+sqrt(b+3/b);
s:=h*(s1+s)/3;
writeln('Ickomoe znach ravno', s:9:10);
readln;
begin
writeln('Vedite peredeli integri');
readln(a,b);
writeln('Vedite kol-vo otrezkov');
readln(n);
h:=(b-a)/n;
y1:=0;
x:=a;
for i:=1 to n-1 do
begin
x:=x+h;
y1:=y1+sqrt(x+3/x);
end;
yn:=sqrt(a+3/a);
yk:=sqrt(b+3/b);
s:=((yn+yk)/2+y1)*h;
writeln('Ickomoe zhach ravno',s:9:10);
readln;
end;
end.
Читайте также
берут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур.
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.
информатике.Опишите на русском языке или на одном из языков програмирования алгоритм, который позволяет найти и вывести количество учащихся чья оценка за тест выше средней оценки в классе.
const N=30;
var a: array [1..N] of integer;
i, j: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
...
end.
принимать значения от 0 до 1000.описать на русском или на одном из языков програмирования алгоритм,который находит и выводит среднее арифметическое всех элементов массива,имеющих нечетное значение