Составить программы в паскале: 1)дан массив из 10 элементов. найти среднее арифметическое. 2)дан массив из 15 элементов. найти сумму чисел 3)дан массив из 10 элементов. изменить каждое число, увеличив на 10 и вывести на экран новые значения.

#1 var   mas: array[1..10] of integer;   i,sum: integer;   begin   sum: =0;   for i: =1 to 10 do   begin     read(mas[i]);     sum: =sum+mas[i];   end;   writeln(sum/10);   end. #2 var   mas: array[1..15] of integer;   i,sum: integer;   begin   sum: =0;   for i: =1 to 15 do   begin     read(mas[i]);     sum: =sum+mas[i];   end;   writeln(sum);   end. #3 var   mas: array[1..10] of integer;   i: integer;   begin   for i: =1 to 10 do     read(mas[i]);   for i: =1 to 10 do   begin     mas[i]: =mas[i]+10;     write(mas[i],' ');   end;   end.

1.

1) s : = (x1+x2)/2

2) dec(k) или  k: =k-1

3) inc(i) или i: =i+1

4) sum : = t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;   kt, kr, kk - количество тетрадей, ручек и карандашей) 

 

2.

а) значения функции y=х(в квадрате)

var y,x: real

 

б) площади прямоугольника

var a,b,s: real

 

в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек

var kv: integer; st,so,sum: real

 

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

так?

Любое трехзначное число вида "abc" можно представить к ак выражение 100a+10b+c тогда:   100a+10b+c -   100c+10b+a     99(a-c) значение, равное 99(a-c), равно трехзначному числу, составленному из тех же самых цифр a, b, c. три цифры можно расставить шестью способами, но два из них мы уже использовали, поэтому остается проверить четыре остальные расстановки, что и делает программа. qbasic cls for a = 1 to 9     for b = 0 to 9           for c = a - 1 to 1 step -1                 k = 99 * (a - c)                 k2 = 100 * a + 10 * c + b                 k3 = 100 * c + 10 * a + b                 k4 = 100 * b + 10 * a + c                 k5 = 100 * b + 10 * c + a                 if k = k2 or k = k3 or k = k4 or k = k5 then                       print a; b; c; " - "; c; b; a; " = "; k                 end if           next c     next b next a результат выполнения программы:   9  5  4  -  4  5  9  =  495