Program wk;
var mas:array [1..10] of integer;sr,k,i:integer;
begin
k:=0;
sr:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] div 10)<>0 then
begin
sr:=mas[i]+sr;
k:=k+1
end;
end;
writeln(sr/k)
end.
6*x+7*y Алгоритм: 1.Начало 2.Описание переменных (x,y,c-вещественные) 3.Ввод данных (ввод x,y) 3.Выражение(c=6*x+7*y)4.Вывод данных (вывод c)5.Конец
p.s.Можно составить в программе алгоритм .
Примерно 90% население получает информацию за счет зрения, 7% за счет слуха, по 1% за счет обоняния, вкуса и осязания (например, слепые, получая информацию, пальцами)
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
const
pi = 3.18;
k = 2.7;
var
f, x: real;
begin
write('x = ');
read(x);
if x < -pi / 2 then writeln('f(x) = ', (2 * sqr(sin(x / 2)) / x));
if x >= -pi / 2 then writeln('f(x) = ', exp(sqr(x)) + cos(2 * k * x));
<span>end.</span>