Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
"<span>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим." - 67 символов (включая знаки препинания и пробелы)
Количество информации = 67*16 = 1072 бита
"</span><span>Я памятник себе воздвиг нерукотворный." - 38 символов
</span>Количество информации = 38*16 = 608 бит
Visual Studio 2017
using System;
class Program {
static void Main() {
var r = new Random();
int[] a = new int[3];
for (int i = 0; i < 3; i++) {
int e = 1; bool t = true;
while (e != 0 && t){
e = r.Next(1, 11);
for (int j = 0; j < 3; j++)
if (e == a[j]) { t = true; break; } else t = false;
}
a[i] = e;
Console.Write(a[i] + " ");
}
Console.WriteLine();
int[] m = new int[10]; int b = 0;
for (int i = 0; i < 10; i++) {
while (b % a[0] != 0 || b % a[1] != 0 || b % a[2] != 0) b++;
m[i] = b;
b++;
Console.Write(m[i]+" ");
}
Console.Read();
}
}