Тест по Информатике Язык Программирования Паскаль


Дан целочисленный массив...найти и вывести...
Октябрь 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 можно было бы сделать и целой (но она вещественная по условию задачи, это нельзя менять!).

  1. const N=30;
  2. var a: array [1..N] of integer;
  3. i, j: integer;
  4. s: real;
  5. begin
  6. for i:=1 to N do readln(a[i]);
  7. s:= 0;
  8. for i:=1 to N do s:= s + a[i];
  9. j:= 0;
  10. for i:=1 to N do
  11. if a[i]*N > s then j:= j + 1;
  12. writeln(j)
Source: vopvet.ru
Похожие публикации