ты сам себе противоречишь, ибо int - для с/с++ (или я вобще паскаль забыл)....используй integer или byte

P.S. Исходник писать не буду по моральным убеждениям по поводу твоего ника и аватары!!!

почему же неправильно помоему всё нормально, проверять в лом, но на глаз вроде всё ровно. перебираешь элементы массива если попадаеться меньше чем min то присваиваеш min значение элемента.... и.т.д.

Так в не мог бы подробно расписать решение?)

а в чем вопрос то? правильно все. что тебя интересует?

Написать полностю код, чтобы он компилися)

ну достань в инете справочник (учебник) по паскалю, почитай, потом пиши код ((* че тут трудного то? ((*

Garfi +1

Кто нибуть знает как решить Полином Жигалкина?!

если да то есть вопрос по раскрытию скобок после домножения на модуль 2. стукну в асю.

Задание на Паскале:
Поиск минимальных элементов массива

Вот что набросал:

a[1;10] массив array
элемент массива int;
min - минимальн. элементов
min:= a[1];
for i:= 2 to 10 : do
begin
If min>a[i] then
min:= a[i]
end;
writeln (min)

** начало кода
** i от 1 до 10 выполн.
***начало - если
*** если min > a [i] to
*** min:=a[i]
***конец если
** конец кода
* вывод

Но это наверное не правильно само задание выше

Не мне (Паскаль не помню совершенно)

Вычислить и напечатать значения интеграла
b xe^(-2x)
S ( ────────── + xsin(x)^2) dx,
1 (1+2x)^2
где b - сумма корней системы уравнений:
1.5x[1]+2.8x[3]=9.9
2x[1]-4.2x[2]+3.4x[3]=3.8
5.6x[2]-4.2x[3]=-1.4
Для вычисления интеграла использовать метод Симпсона.

----------------------------
Вычислить и напечатать значения интеграла
a x+1 x^2arctgx
S ( ───────────────── + ─────────── ) dx,
0.5 (3sinx+2cosx)^2 1+x^2
где y - модуль корня уравнения
0.8x^5 - 0.8x^4 + 1.6x^2 - 6.4x + 6.4 = 0,
вычисленных по методу хорд с точностью до 0.001.

P.S. Спасибо