var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
#include <stdlib.h> //Библиотека для рандома#include <ctime>
#define MAX_SIZE_M 10#define MAX_SIZE_N 10#define MAX_RAND 100#define MIN_RAND 1
void main(){ int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив srand(time(NULL)); //Заполнение массива for(int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) a[i][j] = MIN_RAND + rand() % MAX_RAND;
int sum = 0; //Считаем сумму for (int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) if (a[i][j] % 2 == 1) { sum += a[i][j] * a[i][j]; } }
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
<u><em>Тестовое решение</em></u>
23 25 25 23 23 24 20 23 25 21
1.8
Количество информации вычисляется по формуле log(2)10≈3,32