Program Lemonly; const n=10; var table: array [1..n] of real; i: integer; sum,arifm: real; begin randomize; sum:=0; writeln ('Введите ', n, ' чисел:'); for i:= 1 to n do begin readln(table[i]); sum:=sum+table[i]; end; writeln(); arifm:=sum/n; writeln ('Cреднее арифметическое введённых чисел равно ',arifm:8:3); end.
Or - "ИЛИ". Если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь у тебя условие If(k>9) or (k<14) then условие k > 9 выполняется, а значит и все выражение верно Нужно заменить "OR" на "AND" оператор "И". [ 1 and 1 = 1 ] при всех остальных - ложь
Вот код
var k: integer; begin readln(k); if k > 17 then Writeln('ваша оценка 5. Молодец!'); if (k > 13) and (k < 18) then Writeln('ваша оценка 4.'); if(k > 9) and (k < 14) then Writeln('ваша оценка 3.'); if k < 10 then Writeln('ваша оценка 2.'); end.
Граф - множество вершин и ребер, соединяющих эти вершины. Он несет информацию об элементах системы и связи между ними. Элементы системы изображаются как вершины или узлы графа. Отношения между ними изображаются как ребра или дуги графа. Деревом называют ациклический (то есть между любыми вершинами есть только один путь), связный (то есть от любой вершины графа можно добраться в другую) граф. Корень дерева - это вершина с нулевой степенью захода (то есть в нее не ведут другие ребра). Для неориентированного графа это просто выбранная нами вершина. Ветви - это ребра дерева. Листья дерева - это вершины с нулевой степенью исхода (то есть из них не выходят ребра), т.е. не имеющих поддеревьев. Надеюсь объяснил доступно.
const
n=10;
var
table: array [1..n] of real;
i: integer;
sum,arifm: real;
begin
randomize;
sum:=0;
writeln ('Введите ', n, ' чисел:');
for i:= 1 to n do
begin
readln(table[i]);
sum:=sum+table[i];
end;
writeln();
arifm:=sum/n;
writeln ('Cреднее арифметическое введённых чисел равно ',arifm:8:3);
end.