const d = 31;
var
a: array[1..d] of integer;
i, count, mdl: integer;
begin
for i := 1 to d do begin
a[i] := random(31);
write(a[i], ' ');
mdl := mdl + a[i];
end;
writeln;
writeln('Средняя температура: ', (mdl / d):0:2);
for i := 1 to d do
if(a[i] > mdl / d) then inc(count);
writeln('Дни, в которые температура была выше средней: ', count);
end.

0 0

4 года назад

Объясните пожалуйста,как это сделать? Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии.

nadtrub1985

Начальные координаты обозначешь за х и у
составляешь систему:
х+7(-1-2+4)=1
у+7(2+2-5)=1

получается, что
х=-6
у=8

это и есть начальные координаты

0 0

3 года назад

Нужно создать программу в visual basic , она должна вычислить среднее арифметическое введенных чисел ,написать программу, котора

Allegoria

Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub

0 0

4 года назад