1. Написать программу, табулирующую функцию f(x)=1/sin(x)+k*ln(x-a) в заданном пользователем диапазоне с указанным шагом. Для тех значений x, в которых функция не существует, вместо значения f(x) выводить прочерк. При решении задачи использовать цикл REPEAT … UNTIL.
2. Написать программу, определяющую максимальное значение в заполненном пользователем массиве вещественных чисел размерностью N среди элементов, значение которых находится в указанном диапазоне [A, B]. Массив вывести на экран.
3. Написать программу, подсчитывающую сумму элементов в заполненной пользователем квадратной целочисленной матрице размерностью NxN, находящихся ниже основной диагонали. Исходную матрицу вывести на экран.
Хотя слово «центнер» немецкого происхождения и означает «сто мер», традиционно в Германии в старину за меру веса принимали не килограмм, а фунт, который соответствует приблизительно 500 граммам. То есть 100 фунтов — 50 килограммов. Этой мерой веса в старину пользовались люди, занятые в сельском хозяйстве: например, центнер картофеля — полный мешок, 50 кг. В разных частях Германии центнер был разный: в Баварии, например, — 56 кг; в Брауншвейге — 46,77 кг; в Саксонии — 51,4 кг. Сейчас в Германии берётся усреднённая величина 50 кг[1].
:)
всего доброго
Uses CRT;
Const n=12;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite elementy');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
begin
write(a[i]:4);
if i=5 then writeln;
end;
readln
end.