foont, первая так program one; var a,b,s:real; begin write("a="); readln(a); write("b="); readln(b); write("s="); readln(s); s:absin(alfa)/2 writeln ("s=",s); readln (s); and

.3pf., угол(alfa) тоже надо ввести

foont, program one; var a,b,s,alfa:real; begin write("a="); readln(a); write("b="); readln(b); write("s="); readln(s); write("alfa="); readln(alfa); s:absin(alfa)/2 writeln ("s=",s); readln (s); and

.3pf., что ты хочешь сказать? Проверь сам, я не компилятор:)

foont, спасибо за помощь сегодня 5 получил

Народ, памагите с прогой! Как записать в список числа от 1 к 5 ? Напишите плиз!

evil_genius, че сделать

Все, уже не нада.:-) Додумался сам.

Пожалуйста помогите с написанием программы! Дан двумерный массив. Найти наибольший четный положительный элемент выше главной диагонали и наименьший отрицательный ниже главной диагонали с указанием их индексов. Создать новый массив, в котором найденные элементы поменяются местами.

Все уже не надо, мне помогли!

Nistel89, и как нужно было написать?

.3pf., еще немного не работает, не меняет местами минимум и максимум, но я завтра на практике попробую сделать. Выглядит так (Спасибо юзеру с ником Саня:) )