Здравствуйте,проверьте пожалуйста.
Задание 1:вывести таблицу значений функции y=ex+2 для x от 0 до 2 с шагом 0,2.
Решение:
program tabl;
var xn,xk,dx,x,y:real;
begin
Writeln (‘|x|y|’);
xn:=0;
xk:=2;
dx:=0.2;
x:=xn;
while x<=xk do begin
y:=exp(x) +2;
writeln(‘|’,x:9:2,’|’,y:9:2,’|’);
x:=x+dx;
end;
readln;
end.
Задание 2:в массиве из 10 целых чисел вычислить разность между наибольшим элементом и средним арифметическким всех элементов.
Решение:
program prim5;
var a:array[1..10] of integer;
i,max,s:integer;
begin
writeln ('vvedite elements massiva');
for i:=1 to 10 do
read (a[i]);
max:=a[1];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln ('max=',max);
readln (max);
end.

я нашла только max а дальше незнаю как, подскажите пожалуйста

1-ая вроде правильно, а во втором надо, можно после нахождения мах -
s:=0;
for i:=1 to 10 do
s:=s+a[i];
arif:=s/10;

перед этим в раздел var
arif,otvet:real;

непонял, зачем вы в конце пишете readln(max) если мах у вас уже найден?

далее просто otvet:=max-arif;

glavsvetik, надеюсь, не поздно.


P.S. Pascal ABC 3.0.1.35

спасибо