Составить алгоритм нахождения площади круга с радиусом R объясните

Question

Информатика: Составить алгоритм нахождения площади круга с радиусом R объясните

StasSav06 · Accepted Answer

var

d : array[,] of integer; // объявляем динамический массив

a, b : integer;

begin

write('введите размер массива: ');

readln(a, b);

d := new integer[a,b]; // задаем размер динамического массива

for var i := 0 to a-1 do for var j := 0 to b-1 do d[i,j] := random(15); // заполняем массив случайными числами в диапазоне от 0 до 14

for var i := 0 to a-1 do begin

for var j := 0 to b-1 do begin

if d[i,j] > 7 then begin // ищем первый элемент больше 7 в данной строке

for var n := 0 to b-1 do if d[i,n] <= 7 then d[i,n] := sqr(d[i,n]); // заменяем все элементы больше 7 в данной строке

break;

end;

end.