Массивы

товые величины. В разделе переменных Var массив записывается следующим образом:
x: array 1. . 7 of string;
эта запись указывает, что дан одномерный массив (линейная таблица), содержащий 7 элементов, значениями которых являются строковые величины.

Двумерный массив обозначается следующим образом:
y: array 1. . 4, 1. . 5 of integer;
элементами данного массива являются целые числа, которые записаны в 4 строки и 5 столбцов.
Элемент одномерного массива записывается так: x5 - пятый элемент одномерного массива x (его значением является буква "О"), y2, 3 - элемент, расположенный во второй строке и третьем столбце двумерного массива y.
А теперь перейдем к решению задач. (Задачи нужно подбирать с учетом уровня подготовленности класса. )

II. Решение задач. Построить блок-схему и составить программу для решения следующих задач:
1. В заданном массиве x 1:9 действительных чисел определить среднее арифметическое тех из них, которые больше 10.
Сначала выполним анализ задачи, надо добиться от учащихся четкого понимания условия задачи, можно привести в качестве примера таблицу из 9 элементов.
Program summa;
Var
x: array1. . 9 of real;
s,c: real;
k, n: integer;
begin
for k1 to 9 do
begin
writeln(ВВЕДИТЕ ЗНАЧЕНИЕ X, k,);
readln (xk);
end;
вводим элементы таблицы, которые представляют собой любые действительные числа
s:0; n:0; обнуляем сумму и количество элементов
for k:1 to 9 do
begin
if xk10 then begin s:sxk; n: n1; end;
end;
подсчитываем сумму и количество элементов больших 10
cs/n; находим среднее арифметическое
writeln(c,c); выводим результат на экран
End.

2. Даны площади нескольких кругов. Найти радиус самого маленького из н