var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.
Правильно будет А. D, E тоже имеют право но жизнь, но А вернее в данном случае
Другой способ:
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
1)нажымаем на одну из клеток
2)заходим в функции
3)логические(раздел для записи формул)
4)пишел логическую формулу для нахождения минимума(тоесть если так и так то так(if(a<b)and(a<c))для соседних клетот координаты которых нам известны