Массивы

их.
Перед решением задачи выяснить с учащимися, как зависит площадь круга от радиуса. (Если радиус меньше, то и площадь меньше. ) Согласно выполненному анализу выполнить решение задачи одним из способов.

Первый способ:
Program krugi1;
Var
S, R: array1. . 10 of real;
x: real; k, n: integer;
begin
for k1 to 10 do
begin
writeln(ВВЕДИТЕ ПЛОЩАДЬ , k,КРУГА); readln (Sk);
Rk:sqrt(Sk/pi);
end;
x:R(1); n:1;
for k:2 to 10 do
begin
if Rk
end;
writeln(РАДИУС ,n, КРУГА - САМЫЙ МАЛЕНЬКИЙ R, Rn);
End.

Второй способ:
Program krugi2;
Var
S : array1. . 10 of real;
R, x: real; i, k: integer;
begin
for k1 to 10 do
begin
writeln(ВВЕДИТЕ ПЛОЩАДЬ , k,КРУГА); readln (Sk);
end;
x:S(1); k:1;
for i:2 to 10 do
begin
if Sk
end;
R:sqrt(x/pi); writeln(РАДИУС , n , КРУГА - САМЫЙ МАЛЕНЬКИЙ R,R);
End.

II. Задание на дом. Решить следующие задачи:
1. В массиве Y, состоящем из 12 целых чисел определить среднее арифметическое тех из них, которые являются чётными.
2. Даны площади нескольких квадратов. Найти длину диагонали самого большого из них.

II. Подведение итогов урока. Объявить оценки учащимся, прокомментировать их. Проанализировать решение учащимися задач.