Var i,n,m,sum:integer;r:real;
Begin
Randomize;
write('Введите количество целых десятичных чисел');
Readln(n);
for i:=1 to n do begin
m:=random(100)-50;
write(m:4);sum:= sum + m;end;
writeln;
r:= sum/n;write('среднее значение ', n,' целых десятичных чисел ',r:8:4);<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln(a.Where(x->x<50).Average)
end.
<u>Пример</u>
59 31 97 34 33 2 64 84 79 37
27.4
В 1 пропуск вставляем n
во 2 47
и в 3 вставляем n так как квадраты высчитывается из числа n которые указаны в цикле
Вообще тут не обязательно всё расписывать, достаточно сделать как-нибудь так:
read (a); // последняя цифра
write ((a * a) mod 10);
но если надо расписывать, то:
совершенно так же как у вас, только не от 1 до 7, а от 0 до 9 и вместо понедельник - воскресенье писать последнюю цифру
0 - 0
1 - 1
2 - 4
3 - 9
4 - 6
5 - 5
6 - 6
7 - 9
8 - 4
9 - 1
И!!! НИКОГДА НЕ ИСПОЛЬЗУЙТЕ GOTO! Это яд.
Как заставить программу вернуться к началу алгоритма в c++ ?