Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива. , нужно.

Var  a: array[1..10] of integer; max,min,i: integer; begin min: =10; max: =0; randomize; for i: =1 to 10 do begin a[i]: =random(11); if a[i] > max then max: = a[i]; if a[i] < min then min: =a[i]; end; writeln(min+max);   end.

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот