Тест по Информатике Язык Программирования Паскаль
Дан целочисленный массив...найти и вывести...
Октябрь 16, 2020 – 22:59
Задание:
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике. Опишите на русском языке или на одном из языков программирования алгоритм, который позволяет найти и вывести количество учащихся, чья оценка за тест выше средней оценки в классе. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
Паскаль
|
Естественный язык
|
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.
|
Объявляем массив A из 30 элементов. Объяв-ляем целочисленные переменные i, j.
Объявляем действительную переменную s.
В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й.
...
|
Си
|
#include
int main(void) {
const int N=30;
int a[N];
int i, j;
float s;
for (i=0; i среднего мы используем равносильное ему a[i]*N > суммы элементов. При этом переменную s можно было бы сделать и целой (но она вещественная по условию задачи, это нельзя менять!).
- 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]);
- s:= 0;
- for i:=1 to N do s:= s + a[i];
- j:= 0;
- for i:=1 to N do
- if a[i]*N > s then j:= j + 1;
- writeln(j)
|
|
Похожие публикации