var a: array[1..100] of real; i, n: integer; min, max: real; k: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] > 5 then k := k + 1; writeln(k); end.
Различают также знания декларативные и процедурные. Первые представляют собой утверждения об объектах предметной области, их свойствах и отношениях между ними. По сути дела – это факты из предметной области, фактические знания. Процедурные знания (процедуры) описывают правила преобразования объектов предметной области. Это могут быть рецепты, алгоритмы, методики, инструкции, стратегии принятия решений. Различие между ними состоит в том, что декларативные знания – это правила связи, а процедурные знания – это правила преобразования.
Деклоративные - свойства предметов. Вода - жидкость без цвета, вкуса запаха. Вобщем из учебника по химии, физике. Свойства дерева, камня. Вес предметов. Цвета предметов.
А проц- как что то найти и вычислить, математика например, формулы, как сварить суп - кулинарная книга. Как пользоваться таблицей умножения, взвешивать предметы.
Программа запускалась в PascalABC.NET
var x,y,n: integer;
begin
writeln(' Введите n');
readln(n);
for x:=1 to 100 do
for y:=1 to 100 do
if sqr(x)-sqr(y)=n then
begin
writeln(x,' ',y);
exit;
end;
end.
Объяснение: