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

Паскаль

Естественный язык

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)